A114873 Numbers representable in exactly one way as (p-1)p^k (where p is a prime and k>=0), in ascending order.

1, 8, 10, 12, 20, 22, 28, 30, 32, 36, 40, 46, 52, 54, 58, 60, 64, 66, 70, 72, 78, 82, 88, 96, 102, 106, 108, 110, 112, 126, 128, 130, 136, 138, 148, 150, 166, 172, 178, 180, 190, 192, 196, 198, 210, 222, 226, 228, 232, 238, 240, 250, 262, 268, 270, 272, 276, 280

Offset

1,2

Links

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

Example

(2-1)*2^3 is the only representation of 8 in the required form.

Mathematica

s = Split@ Sort@ Flatten@ Table[(Prime[n] - 1)Prime[n]^k, {n, 60}, {k, 0, 6}]; Take[Union@ Flatten@ Select[s, Length@# == 1 &], 80] (* Robert G. Wilson v *)

Crossrefs

Cf. A114871, A114874.

Sequence in context: A157939 A208154 A096281 * A114621 A174156 A115168

Adjacent sequences: A114870 A114871 A114872 * A114874 A114875 A114876

Keyword

nonn

Author

Franz Vrabec, Jan 03 2006

Extensions

More terms from Robert G. Wilson v, Jan 05 2006

Status

approved