login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A096480 a(n)=Min{x : A073124[x]=2n}. 2
1, 8, 5, 22, 16, 15, 33, 67, 62, 164, 88, 56, 73, 202, 134, 504, 201, 261, 799, 1461, 289, 282, 1309, 1053, 1143, 939, 527, 3531, 2179, 4751, 2461, 5308, 2837, 3983, 1946, 8622, 9488, 12862, 6377, 4653, 7594, 7646, 19251, 22538, 9561, 32509, 26146, 17568 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

LINKS

Table of n, a(n) for n=1..48.

EXAMPLE

n=4:a[4]=22 means that A073124(22)=8,p[1+p[22]]-p[p[22]]=p[1+79]-p[79]=409-401;

n=5,a[5]=16: A073124(16)=10, p[1+p[16]]-p[p[16]]=p[54]-p[53]=251-241=10

MATHEMATICA

Table[Min[Flatten[Position[Table[Prime[Prime[n]+1]- Prime[Prime[n]], {n, 1, 5000}], 2*j]]], {j, 1, 20}]

PROG

(PARI) {m=48; for(n=1, m, k=1; while((prime(prime(k)+1)-prime(prime(k)))!=2*n, k++); print1(k, ", "))} - Klaus Brockhaus, Jun 27 2004

CROSSREFS

Cf. A000040, A006450, A073124, A072677, A096477-A096479.

Cf. A096481, A096482.

Sequence in context: A348688 A199806 A070484 * A248292 A196123 A196120

Adjacent sequences:  A096477 A096478 A096479 * A096481 A096482 A096483

KEYWORD

nonn

AUTHOR

Labos Elemer, Jun 23 2004

EXTENSIONS

a(31) - a(48) from Klaus Brockhaus, Jun 27 2004

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified May 21 19:42 EDT 2022. Contains 353929 sequences. (Running on oeis4.)