OFFSET
1,1
COMMENTS
By definition of the sequence, A087045(n) + 1 for every n > 0 is in the sequence.
No more terms < 3870000. - David Wasserman, Mar 31 2005
MATHEMATICA
a[m_] := a[m] = Sum[ a[j], {j, 0, Mod[ a[m - 1], m]}]; vv = {}; Do[ a[n] = If[ n == 0, 1, b]; v = a[n + 1]; b = v; If[ v == 2, AppendTo[ vv, n + 1]; Print[n + 1]], {n, 0, 165000}]
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Farideh Firoozbakht, Aug 05 2003
EXTENSIONS
Extended by Robert G. Wilson v, Aug 07 2003
More terms from David Wasserman, Mar 31 2005
a(27)-a(29) from Michael S. Branicky, Mar 23 2024
STATUS
approved