OFFSET
1,2
COMMENTS
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
EXAMPLE
. A000217 | 1, 3, 6, 10, 15, . . .
. A000027 | _,2,___,4,5,_____,7,8,9,_______,11,12,13,14,_________,16,...
. A002260 | 1, 1,2, 1,2,3, 1,2,3,4, 1,2,3,4,5,
. --------+-------------------------------------------------------------
. a(n) | 1,2,1,2,4,5,1,2,3,7,8,9,1,2,3,4,11,12,13,14,1,2,3,4,5,16,17,...
MATHEMATICA
Table[If[OddQ[Sqrt[8n+1]], Range[(Sqrt[8n+1]-1)/2], n], {n, 50}]//Flatten (* Harvey P. Dale, Jun 01 2019 *)
PROG
(Haskell)
a256188 n = a256188_list !! (n-1)
a256188_list = f 0 [1..] a002260_tabl where
f k xs (zs:zss) = us ++ zs ++ f (k + 1) vs zss
where (us, v:vs) = splitAt k xs
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Mar 26 2015
STATUS
approved