OFFSET
1,2
COMMENTS
Numbers k such that k | A001850(k).
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..307
EXAMPLE
MATHEMATICA
Select[Range[1000], Divisible[LegendreP[#, 3], #] &]
PROG
(PARI) lista(kmax) = {my(cd0 = 1, cd1 = 3, cd2); print1("1, "); for(k = 2, kmax, cd2 = (3*(2*k-1)*cd1 - (k-1)*cd0)/k; if(!(cd2 % k), print1(k, ", ")); cd0 = cd1; cd1 = cd2); }
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, May 16 2024
STATUS
approved