|
|
A343752
|
|
a(1) = 1; for n > 1, a(n) = n if a(n-1) is divisible by n, otherwise a(n) = a(n-1)+n.
|
|
1
|
|
|
1, 3, 3, 7, 12, 6, 13, 21, 30, 10, 21, 33, 46, 60, 15, 31, 48, 66, 85, 105, 21, 43, 66, 90, 115, 141, 168, 28, 57, 87, 118, 150, 183, 217, 252, 36, 73, 111, 150, 190, 231, 273, 316, 360, 45, 91, 138, 186, 235, 285, 336, 388, 441, 495, 55, 111, 168, 226
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
RecurrenceTable[{a[n + 1] == If[Divisible[a[n], n + 1], n + 1, a[n] + n + 1], a[1] == 1}, a, {n, 1, 100}]
|
|
PROG
|
(PARI) lista(nn) = {my(va = vector(nn)); va[1] = 1; for (n=2, nn, va[n] = va[n-1]; if (va[n-1] % n, va[n] += n, va[n]); ); va; } \\ Michel Marcus, May 17 2021
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|