login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A242459 Maximal differences of A029707. 0
1, 2, 3, 4, 6, 12, 20, 24, 27, 29, 42, 54, 72, 75, 103, 128, 131, 151, 153, 162, 164, 181, 204, 208, 209, 211, 237, 265 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

COMMENTS

There are no more terms below prime(10^7) = 179424673.

No more terms below 5090000000. - Robert G. Wilson v, May 21 2014

LINKS

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

MATHEMATICA

nextLesserTwinPrime[p_Integer] := Block[{q = p + 2}, While[ NextPrime@ q - q > 2, q = NextPrime@ q]; q]; p = 2; q = 3; px = 1; qx = 2; mxd = 0; tpx = 0; lst = {}; While[p <

5090000001, d = qx - px; If[ d > mxd, mxd = d; AppendTo[ lst, d]; Print@ d]; p = q; px = qx; q = nextLesserTwinPrime@ q; qx = PrimePi@ q; tpx++]; lst (* Robert G. Wilson v, May 21 2014 *)

PROG

(Sage)

def A242459_list(n) :

   a = [ 1 ]

   st = 3

   for i in (4..n) :

      if (nth_prime(i+1)-nth_prime(i) == 2) :

         if i-st > a[len(a)-1] :

            a.append(i-st)

         st = i

   return(a)

A242459_list(10^(5))

CROSSREFS

Cf. A027833, A029707.

Sequence in context: A337449 A221846 A018343 * A260987 A102462 A277408

Adjacent sequences:  A242456 A242457 A242458 * A242460 A242461 A242462

KEYWORD

nonn,more

AUTHOR

Jani Melik, May 15 2014

EXTENSIONS

a(20) - a(28) from Robert G. Wilson v, May 21 2014

STATUS

approved

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified August 3 19:17 EDT 2021. Contains 346441 sequences. (Running on oeis4.)