A253645 - OEIS

The OEIS is supported by the many generous donors to the OEIS Foundation.

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

Other ways to Give

A253645

Primes p such that p^k is zeroless for k=0,...,5.

2, 3, 5, 13, 17, 23, 31, 137, 233, 337, 383, 719, 971, 1291, 1663, 1777, 3623, 6113, 12589, 15733, 15791, 17729, 22637, 44623, 48989, 61379, 65777, 72379, 82129, 91331, 99559, 132859, 133733, 163633, 226129, 239539, 346391, 352133, 394223, 415379, 428531, 485113, 518233, 546523

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

OFFSET

1,1

COMMENTS

These are the primes in A253644. This is a subsequence of A253110 (k<=4) and contains A253646 (k <= 6) as a subsequence.

Motivated by A253646, i.e., the observation that many small primes satisfy this condition for k <= 5 (52 terms below 10^6) but only very few satisfy it for k <= 6 (only 2 terms between 20 and 2*10^9).

LINKS

Giovanni Resta, Table of n, a(n) for n = 1..5300 (first 1200 terms from Zak Seidov)

MATHEMATICA

Select[Prime[Range[46000]], Count[Flatten[IntegerDigits/@(#^Range[5])], 0] == 0&] (* Harvey P. Dale, Jan 13 2015 *)

PROG

(PARI) forprime(p=0, , forstep(k=5, 1, -1, vecmin(digits(p^k))||next(2)); print1(p", "))

CROSSREFS

Cf. A253110, A253644, A253646.

Sequence in context: A241123 A038983 A235635 * A214802 A262840 A215318

Adjacent sequences: A253642 A253643 A253644 * A253646 A253647 A253648

KEYWORD

nonn,base

AUTHOR

Zak Seidov and M. F. Hasler, Jan 07 2015

STATUS

approved