[go: up one dir, main page]

login
A139090
a(n) = smallest prime divisor of the number prime(n)!/9 + 1.
0
3, 31, 31, 23, 379, 83, 610301, 293, 101, 47, 281, 127, 278174297, 2971, 109, 5090615254324820333, 46411, 106087, 269, 288931, 59047158151, 120871, 373, 19140822523, 56595118147, 1708207, 331, 38749, 157, 2927, 2143
OFFSET
4,1
MATHEMATICA
a = {}; Do[w = FactorInteger[(Prime[n]! + 9)/9]; AppendTo[a, First[w][[1]]], {n, 4, 16}]; a
Table[FactorInteger[p!/9+1][[1, 1]], {p, Prime[Range[4, 35]]}] (* Harvey P. Dale, Sep 19 2020 *)
KEYWORD
more,nonn
AUTHOR
Artur Jasinski, Apr 08 2008
EXTENSIONS
More terms from Jon E. Schoenfield, Jul 16 2010
STATUS
approved