A266368 The smallest prime formed by the concatenation of consecutive n-th powers beginning with "1," plus a trailing "1.".
11, 1231, 149161, 181, 1168125662512961, 1321, 1647294096156251, 11282187163847812527993682354320971524782969100000001948717135831808627485171, 125665616553639062516796161, 15121
Offset: 0
Examples
a(6)=1647294096156251; 1=1^6; 64=2^6; 729=3^6; 4096=4^6; 15625=5^6; 1647294096156251 is prime.
Programs
-
Mathematica
f[k_, n_] := FromDigits@ Flatten@ Map[IntegerDigits, Append[Range[k + 1]^n, 1], 1]; Table[If[n == 0, k = 0, k = 1]; While[! PrimeQ@ f[k, n], k++]; f[k, n], {n, 0, 9}] (* Michael De Vlieger, Jan 05 2016 *)
Comments