The On-Line Encyclopedia of Integer Sequences (OEIS)

A304028 revision #9

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

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,2

COMMENTS

This is different from A001422.

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

proposed