A139070 Primes of the form (10+k!)/10.

13, 73, 3991681, 47900161, 130767436801, 2585201673888497664001, 40329146112660563558400001, 1376375309122634504631597958158090240000001, 11962222086548019456196316149565771506438373376000000001

Offset

1,1

Comments

Numbers k for which (10+k!)/10 is prime see A139071

Links

Table of n, a(n) for n=1..9.

Mathematica

a = {}; Do[If[PrimeQ[(n! + 10)/10], AppendTo[a, [(n! + 10)/10]], {n, 1, 50}]; a
Select[(Range[50]!+10)/10, PrimeQ] (* Harvey P. Dale, Sep 18 2013 *)

Prog

(PARI) for(k=5, 1e3, if(ispseudoprime(t=k!/10+1), print1(t", "))) \\ Charles R Greathouse IV, Jul 15 2011

Crossrefs

Cf. A082672, A089085, A089130, A117141, A007749, A139056, A139057, A139058, A139059, A139060, A139061, A139061, A139062, A139063, A139064, A139065, A139066, A020458, A139068, A137390, A139070, A139071, A139072.

Sequence in context: A139157 A228027 A159832 * A094421 A301882 A302079

Adjacent sequences: A139067 A139068 A139069 * A139071 A139072 A139073

Keyword

nonn

Author

Artur Jasinski, Apr 07 2008

Status

approved