OFFSET
1,2
COMMENTS
No more terms < 4.61*10^11. - Jud McCranie, Dec 29 2019
No more terms < 6.46*10^13. - James Ewens, Sep 27 2024
EXAMPLE
A005132(21) = 63, 63 is divisible by 21, so 21 is in the sequence.
MATHEMATICA
With[{s = Nest[Append[#1, If[And[#3 > 0, FreeQ[#1, #3]], #3, #1[[-1]] + #2]] & @@ {#1, #2, #1[[-1]] - #2} & @@ {#, Length@ #} &, {0}, 10^5]}, Reap[Do[If[Mod[s[[i]], i] == 0, Sow[i]], {i, Length@ s - 1}]][[-1, -1]]] (* Michael De Vlieger, Dec 29 2019 *)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
N. J. A. Sloane, Oct 16 2001
EXTENSIONS
Offset changed, a(1), a(22)-a(23) from Jud McCranie, Dec 29 2019
a(24)-a(30) from James Ewens, Sep 27 2024
STATUS
approved