|
|
|
|
5, 8, 12, 20, 30, 36, 42, 64, 72, 60, 66, 48, 78, 126, 120, 144, 136, 126, 152, 180, 210, 198, 322, 336, 150, 286, 378, 252, 406, 390, 248, 288, 264, 170, 210, 324, 666, 760, 624, 480, 574, 630, 344, 528, 540, 506, 752, 720, 588, 750, 714, 468, 424, 594, 1100, 1064, 684
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
a(n) is divisible by n for every n.
|
|
LINKS
|
|
|
MATHEMATICA
|
With[{nn = 57}, Total /@ Partition[#, 2, 1] &@ Fold[Append[#1, SelectFirst[Prime@ Range[2, Ceiling& Log2[nn] nn], Function[p, And[FreeQ[#1, p], Divisible[Last@ #1 + p, #2]]]]] &, {2}, Range@ nn]] (* Michael De Vlieger, Oct 16 2017 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|