OFFSET
1,2
COMMENTS
A001422 is a finite subsequence.
EXAMPLE
2229 is in the sequence because A033461(2229) = 51267 = 23 * 2229.
MATHEMATICA
max = 100; p = ConstantArray[0, max^2 + 1]; p[[1]] = 1; p[[2]] = 1; Do[Do[p[[j + 1]] += p[[j - k^2 + 1]], {j, max^2, k^2, -1}]; , {k, 2, max}]; Select[Range[1, max^2], Divisible[p[[# + 1]], #] &]
CROSSREFS
KEYWORD
nonn
AUTHOR
Vaclav Kotesovec, May 04 2018
STATUS
approved