OFFSET
1,2
COMMENTS
Numbers k such that k | A000930(k).
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..43
EXAMPLE
MATHEMATICA
With[{m = 50000}, Position[LinearRecurrence[{1, 0, 1}, {1, 1, 2}, m]/Range[m], _?IntegerQ] // Flatten]
PROG
(PARI) lista(kmax) = {my(nc1 = 1, nc2 = 1, nc3 = 2, nc4); print1("1, "); for(k = 4, kmax, nc4 = nc1 + nc3; if(!(nc4 % k), print1(k, ", ")); nc1 = nc2; nc2 = nc3; nc3 = nc4); }
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, May 16 2024
STATUS
approved
