A192608 Numbers n such that the concatenation of n^5 n^4 n^3 n^2 n^1 n^0 is prime.

9, 39, 69, 228, 294, 594, 612, 801, 849, 921, 984, 1821, 1827, 1842, 1854, 1872, 1893, 1896, 2031, 2193, 2202, 2319, 2370, 2421, 2454, 2466, 2508, 2535, 2604, 2607, 2712, 2997, 3009, 3084, 3102, 3108, 3351, 3477, 3843, 3879, 3897, 3900, 3921, 4095, 4161

Offset

1,1

Links

Giovanni Resta, Table of n, a(n) for n = 1..1000

Example

9 is in the list because the concatenation of 9^5 9^4 9^3 9^2 9^1 9^0 is 5904965617298191 and this number is prime.

Mathematica

Select[Range[4200], PrimeQ[FromDigits[Flatten[IntegerDigits/@{#^5, #^4, #^3, #^2, #, 1}]]]&] (* Harvey P. Dale, Jun 25 2022 *)

Prog

(PARI) isok(n) = {s = ""; for(i=0, 5, s = concat(Str(n^i), s)); isprime(eval(s)); } \\ Michel Marcus, Feb 04 2014
(PARI) is(n)=isprime(eval(Str(n^5, n^4, n^3, n^2, n, 1))) \\ Charles R Greathouse IV, Feb 04 2014

Crossrefs

Cf. A192609, A192610.

Sequence in context: A053181 A348545 A346950 * A158447 A281381 A226449

Adjacent sequences: A192605 A192606 A192607 * A192609 A192610 A192611

Keyword

nonn,base

Author

Claudio Meller, Jul 05 2011

Extensions

Extended by Charles R Greathouse IV, Jul 05 2011

Status

approved