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,2

Comments

A001422 is a finite subsequence.

Links

Table of n, a(n) for n=1..47.

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

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

Sequence in context: A276517 A001422 A097757 * A155152 A098740 A116046

Adjacent sequences: A304025 A304026 A304027 * A304029 A304030 A304031

Keyword

nonn

Author

Vaclav Kotesovec, May 04 2018

Status

approved