%I #12 Jan 06 2023 22:26:52
%S 10,10,10,2080,178030,41697270,4355942080,1944616927560
%N a(n) is the smallest m such that 19*m^k+1 is prime for k=1, 2,...,n.
%C 10 divides all terms.
%t 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 *)
%Y Cf. A106759, A166459, A229906, A229626.
%K nonn,more
%O 1,1
%A _Jahangeer Kholdi_, Oct 04 2013
%E a(7) from _Farideh Firoozbakht_ Oct 05 2013
%E a(8) from _Tyler Busby_, Jan 06 2023
|