A304028 Numbers k such that A033461(k) is divisible by k.

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

Author

Vaclav Kotesovec, May 04 2018

Keywords

• nonn

Comments

A001422 is a finite subsequence.

Examples

			2229 is in the sequence because A033461(2229) = 51267 = 23 * 2229.
		

Crossrefs

Cf. A001422, A033461, A051177, A056848, A276517.

Programs

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]], #] &]