login
A304028
Numbers k such that A033461(k) is divisible by k.
2
1, 2, 3, 6, 7, 8, 11, 12, 15, 18, 19, 22, 23, 24, 27, 28, 31, 32, 33, 43, 44, 47, 48, 60, 67, 72, 76, 92, 96, 108, 112, 128, 2229, 2929, 3022, 4481, 34542, 34951, 36996, 58091, 292949, 437728, 438237, 2103581, 2237158, 3215950, 3375578
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