|
Search: id:A139090
|
|
|
| A139090 |
|
a(n) = smallest prime divisor of the number prime(n)!/9 + 1. |
|
+0
4
|
|
| 3, 31, 31, 23, 379, 83, 610301, 293, 101, 47, 281, 127, 278174297, 2971, 109, 5090615254324820333
(list; graph; listen)
|
|
|
OFFSET
|
4,1
|
|
|
MATHEMATICA
|
a = {}; Do[w = FactorInteger[(Prime[n]! + 9)/9]; AppendTo[a, First[w][[1]]], {n, 4, 16}]; a
|
|
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, A139073, A139074, A139074, A139075, A136019, A136020, A136026, A136027, A139089, A139090, A139091, A139092.
Sequence in context: A053300 A089281 A090543 this_sequence A042477 A023297 A077546
Adjacent sequences: A139087 A139088 A139089 this_sequence A139091 A139092 A139093
|
|
KEYWORD
|
more,nonn
|
|
AUTHOR
|
Artur Jasinski (grafix(AT)csl.pl), Apr 08 2008
|
|
|
Search completed in 0.002 seconds
|
