|
| |
|
|
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].
|
|
2
| |
|
|
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; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,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, A080082, A000230, A000040.
Sequence in context: A031970 A196881 A049164 * A179328 A089950 A198797
Adjacent sequences: A081410 A081411 A081412 * A081414 A081415 A081416
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Labos E. (labos(AT)ana.sote.hu), Apr 02 2003
|
| |
|
|
