A088622 Smallest prime obtained as the concatenation of a power of n followed by a 1, or 0 if no such number exists.
11, 41, 31, 41, 251, 61, 71, 641, 811, 101, 259374246011, 0, 131, 75295361, 151, 40961
Offset: 1
Programs
-
Mathematica
f[n_] := Block[{k = 1}, While[ !PrimeQ[10*n^k + 1] && k != 1500, k++ ]; If[k == 1500, 0, 10*n^k + 1]]; Table[ f[n], {n, 1, 50}] (* Robert G. Wilson v, Oct 25 2003 *)
Extensions
Next term is too large to include. - Ray Chandler, Oct 23 2003
Extended by Robert G. Wilson v, Oct 25 2003
Comments