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

%I #5 Oct 15 2013 22:32:25

%S 1,8,5,22,16,15,33,67,62,164,88,56,73,202,134,504,201,261,799,1461,

%T 289,282,1309,1053,1143,939,527,3531,2179,4751,2461,5308,2837,3983,

%U 1946,8622,9488,12862,6377,4653,7594,7646,19251,22538,9561,32509,26146,17568

%N a(n)=Min{x : A073124[x]=2n}.

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

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

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

%o (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

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

%Y Cf. A096481, A096482.

%K nonn

%O 1,2

%A _Labos Elemer_, Jun 23 2004

%E a(31) - a(48) from _Klaus Brockhaus_, Jun 27 2004

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 March 28 18:04 EDT 2024. Contains 371254 sequences. (Running on oeis4.)