A318606 Numbers of the form p^k-k for some prime, p, and integer k >= 0.

1, 2, 4, 5, 6, 7, 10, 12, 16, 18, 22, 23, 24, 27, 28, 30, 36, 40, 42, 46, 47, 52, 58, 60, 66, 70, 72, 77, 78, 82, 88, 96, 100, 102, 106, 108, 112, 119, 121, 122, 126, 130, 136, 138, 148, 150, 156, 162, 166, 167, 172, 178, 180, 190, 192, 196, 198, 210, 222, 226, 228, 232, 238, 240, 248, 250, 256, 262

Offset

1,2

Links

Jud McCranie, Table of n, a(n) for n = 1..5000

S. P. Hurd and J. S. McCranie, Integers that are Sums of Uniform Powers of all their Prime Factors: the sequence A068916, J. of Int. Seq., vol 22 (2019), article 19.3.4.

Example

2^7-7=121, so 121 is in the sequence.

Mathematica

With[{nn = 265}, Union@ Flatten@ Table[p^k - k, {p, Prime@ Range@ PrimePi@ nn}, {k, Log[p, nn]}]] (* Michael De Vlieger, Jul 16 2019 *)

Crossrefs

Cf. A000040, A057897, A068916, A269769.

Sequence in context: A047570 A129132 A191843 * A057461 A070116 A246965

Adjacent sequences: A318603 A318604 A318605 * A318607 A318608 A318609

Keyword

nonn

Author

Jud McCranie, Aug 29 2018

Status

approved