|
|
|
|
1, 2, 3, 6, 7, 8, 11, 18, 21, 23, 34, 37, 38, 41, 48, 71, 92, 93, 98, 143, 153, 162, 173, 186, 202, 232, 246, 261, 291, 352, 458, 481, 503, 576, 577, 828, 831, 847, 1011, 1013, 1101, 1251, 1357, 1461, 1552, 1657, 1957, 2028, 2347, 2358, 2407, 3246, 3417, 3711, 3888, 3892
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
MATHEMATICA
|
nmax = 20000;
A065191 = Reap[Do[pos = n; Do[pos -= k (-1)^Quotient[pos, k], {k, n, 1, -1}]; pos -= If[Mod[n, 4] < 2, 1, -1]; Sow[pos], {n, 1, nmax}]][[2, 1]];
record = 0;
|
|
CROSSREFS
|
|
|
KEYWORD
|
nice,nonn
|
|
AUTHOR
|
Klaus Strassburger (strass(AT)ddfi.uni-duesseldorf.de), Oct 19 2001
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|