A090900 Least n-th power such that every concatenation is a prime.

2, 9, 27, 6561, 39135393, 1291467969, 3404825447, 248155780267521, 8422942255954625293713, 717897987691852588770249

Offset

1,1

Links

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

Example

2, 29, 2927, etc. are primes.

Mathematica

c = ""; Do[k = 1; While[ !PrimeQ[ToExpression[c <> ToString[k^n]]], k++ ]; Print[k^n]; c = c <> ToString[k^n], {n, 1, 10}] (* Ryan Propper, Jul 08 2005 *)

Crossrefs

Sequence in context: A019065 A115186 A243560 * A357721 A155472 A100293

Adjacent sequences: A090897 A090898 A090899 * A090901 A090902 A090903

Keyword

base,nonn

Author

Amarnath Murthy, Dec 11 2003

Extensions

More terms from Ryan Propper, Jul 08 2005

Status

approved