|
%I #8 Sep 18 2013 12:03:04
%S 13,73,3991681,47900161,130767436801,2585201673888497664001,
%T 40329146112660563558400001,
%U 1376375309122634504631597958158090240000001,11962222086548019456196316149565771506438373376000000001
%N Primes of the form (10+k!)/10.
%C Numbers k for which (10+k!)/10 is prime see A139071
%t a = {}; Do[If[PrimeQ[(n! + 10)/10], AppendTo[a, [(n! + 10)/10]], {n, 1, 50}]; a
%t Select[(Range[50]!+10)/10,PrimeQ] (* _Harvey P. Dale_, Sep 18 2013 *)
%o (PARI) for(k=5,1e3,if(ispseudoprime(t=k!/10+1),print1(t", "))) \\ _Charles R Greathouse IV_, Jul 15 2011
%Y Cf. A082672, A089085, A089130, A117141, A007749, A139056, A139057, A139058, A139059, A139060, A139061, A139061, A139062, A139063, A139064, A139065, A139066, A020458, A139068, A137390, A139070, A139071, A139072.
%K nonn
%O 1,1
%A _Artur Jasinski_, Apr 07 2008
|
