|
|
A256188
|
|
In positive integers: replace k*(k+1)/2 with the first k numbers.
|
|
9
|
|
|
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, 18, 19, 20, 1, 2, 3, 4, 5, 6, 22, 23, 24, 25, 26, 27, 1, 2, 3, 4, 5, 6, 7, 29, 30, 31, 32, 33, 34, 35, 1, 2, 3, 4, 5, 6, 7, 8, 37, 38, 39, 40, 41, 42, 43, 44, 1, 2, 3, 4
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
EXAMPLE
|
. 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
|
|
|
STATUS
|
approved
|
|
|
|