A037201 Differences between consecutive primes (A001223) but with repeats omitted.

1, 2, 4, 2, 4, 2, 4, 6, 2, 6, 4, 2, 4, 6, 2, 6, 4, 2, 6, 4, 6, 8, 4, 2, 4, 2, 4, 14, 4, 6, 2, 10, 2, 6, 4, 6, 2, 10, 2, 4, 2, 12, 4, 2, 4, 6, 2, 10, 6, 2, 6, 4, 2, 10, 14, 4, 2, 4, 14, 6, 10, 2, 4, 6, 8, 6, 4, 6, 8, 4, 8, 10, 2, 10, 2, 6, 4, 6, 8, 4

Offset

1,2

Links

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Index entries for primes, gaps between

Mathematica

Flatten[Split[Differences[Prime[Range[150]]]]/.{{a_, b_}->a, {a_, b_, c_}->a}] (* Harvey P. Dale, Jun 21 2012 *)

Prog

(Haskell)
a037201 n = a037201_list !! (n-1)
a037201_list = f a001223_list where
   f (x:xs@(x':_)) | x == x'   = f xs
                   | otherwise = x : f xs
-- Reinhard Zumkeller, Feb 27 2012
(PARI) t=0; p=2; forprime(q=3, 1e3, if(q-p!=t, print1(q-p", ")); t=q-p; p=q) \\ Charles R Greathouse IV, Feb 27 2012

Crossrefs

Cf. A000040, A001223, A007921, A030173.

Sequence in context: A010694 A111737 A056672 * A128886 A031883 A366261

Adjacent sequences: A037198 A037199 A037200 * A037202 A037203 A037204

Keyword

easy,nonn,nice

Author

Naohiro Nomoto

Extensions

Offset corrected by Reinhard Zumkeller, Feb 27 2012

Status

approved