|
|
A229902
|
|
a(n) is the smallest m such that 19*m^k+1 is prime for k=1, 2,...,n.
|
|
1
|
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
10 divides all terms.
|
|
LINKS
|
|
|
MATHEMATICA
|
a[1]=10; a[n_]:=a[n]=(For[m=a[n-1]/10, Union[Table[PrimeQ[19(10m)^k+1], {k, n}]]=={True}, m++]; 10m) (* Farideh Firoozbakht Oct 05 2013 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|