|
Search: id:A081413
|
|
|
| A081413 |
|
a(n) is the smallest p prime such that largest prime divisor of difference nextprime[a(n)]-a(n) equals the n-th prime, p[n]. |
|
+0
3
|
|
| 3, 23, 139, 113, 1129, 2477, 1327, 30593, 81463, 44293, 34061, 404597, 265621, 155921, 1100977, 1098847, 1349533, 3117299, 6958667, 10343761, 6034247, 49268581, 83751121, 39389989, 166726367
(list; graph; listen)
|
|
|
OFFSET
|
2,1
|
|
|
FORMULA
|
a(n)=Min{p(j); A006530[p(j+1)-p(j)]=A000040[n]=p(n)}
|
|
MATHEMATICA
|
t=Table[0, {100}]; Do[s=ma[Prime[n+1]-Prime[n]]; If[s<101&&t[[PrimePi[s]]]==0, t[[PrimePi[s]]]=Prime[n]], {n, 2, 170000000}]; t
|
|
CROSSREFS
|
Cf. A001223, A006530, A081413, A000230, A000040.
Sequence in context: A091055 A031970 A049164 this_sequence A089950 A057835 A079755
Adjacent sequences: A081410 A081411 A081412 this_sequence A081414 A081415 A081416
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Apr 02 2003
|
|
|
Search completed in 0.002 seconds
|
