|
| |
|
|
A095391
|
|
a(n) is the least x such that A094892(x)=n.
|
|
2
| |
|
|
1751793, 235449, 60110, 10471, 17110, 8495, 6288, 3182, 2452, 1349, 331, 348, 446, 223, 249, 205, 111, 67, 55, 63, 28, 37, 14, 21, 18, 11, 10, 6, 551, 5, 4, 7, 3, 2
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,1
|
|
|
EXAMPLE
| a[0]=1751793 because there are no primes between 210*1751793 and 210*1751794.
a[1]=235449 because there is one prime between 210*235449 and 210*235450.
|
|
|
MATHEMATICA
| ta=Table[0, {up}]; Do[{m=0}; Do[s=210*k+r; s1=210*k+r+2; If[PrimeQ[s], m=m+1], {r, 1, 210}]; ta[[k]]=m, {k, 1, up}] Table[Min[Flatten[Position[ta, j]]], {j, 1, 48}]
|
|
|
CROSSREFS
| Cf. A078859, A095389, A008364.
Sequence in context: A124068 A090054 A186823 * A203941 A017286 A017394
Adjacent sequences: A095388 A095389 A095390 * A095392 A095393 A095394
|
|
|
KEYWORD
| fini,nonn
|
|
|
AUTHOR
| Labos E. (labos(AT)ana.sote.hu), Jun 16 2004
|
|
|
EXTENSIONS
| Edited by Don Reble (djr(AT)nk.ca), Jun 16 2004
|
| |
|
|
