The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A256913 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A256913

Enhanced squares representations for k = 0, 1, 2, ..., concatenated.
(history; published version)

#14 by Alois P. Heinz at Fri Nov 05 14:33:57 EDT 2021

STATUS

reviewed

approved

#13 by Amiram Eldar at Fri Nov 05 14:16:15 EDT 2021

STATUS

proposed

reviewed

#12 by Michel Marcus at Fri Nov 05 13:39:09 EDT 2021

STATUS

editing

proposed

#11 by Michel Marcus at Fri Nov 05 13:38:56 EDT 2021

PROG

(Haskell)

STATUS

approved

editing

#10 by Reinhard Zumkeller at Wed Apr 15 13:31:08 EDT 2015

STATUS

editing

approved

#9 by Reinhard Zumkeller at Wed Apr 15 13:10:26 EDT 2015

CROSSREFS

Cf. A257053 (primes).

KEYWORD

nonn,easy,tabf,new,nice

#8 by Reinhard Zumkeller at Wed Apr 15 13:08:41 EDT 2015

PROG

(Haskell)

a256913_tabf = [0] : map r [1..] tail esr where

esr = (map r [0 = [..8]) ++

f 9 (map fromInteger $ drop 3 a000290_list) where

f x gs@(g:hs@(h:_))

| x < h = (g : genericIndex esr (x - g)) : f (x + 1) gs

| otherwise = f x hs

r 0 = []; r 8 = [4, 3, 1]

r x = h q : r (x - hq) where h q = g [0, 1, 2, 3, 4, 4, 4, 4, 4] !! x

g x = last $ takeWhile (<= x) ebs

ebs = [0..3] ++ drop 2 a000290_list -- enhanced basis of squares

STATUS

approved

editing

#7 by Reinhard Zumkeller at Wed Apr 15 04:17:33 EDT 2015

STATUS

editing

approved

#6 by Reinhard Zumkeller at Wed Apr 15 04:03:02 EDT 2015

PROG

(Haskell)

a256913 n k = a256913_tabf !! n !! k

a256913_row n = a256913_tabf !! n

a256913_tabf = [0] : map r [1..] where

r 0 = []

r 8 = [4, 3, 1]

r x = h : r (x - h) where h = g x

g x = last $ takeWhile (<= x) ebs

ebs = [0..3] ++ drop 2 a000290_list -- enhanced basis of squares

-- Reinhard Zumkeller, Apr 15 2015

KEYWORD

nonn,easy,new,tabf

STATUS

approved

editing

#5 by N. J. A. Sloane at Tue Apr 14 16:44:34 EDT 2015

STATUS

proposed

approved