login
A079033
First differences of A023203.
3
4, 6, 6, 12, 6, 6, 18, 12, 6, 18, 6, 24, 12, 18, 6, 18, 42, 6, 12, 30, 12, 24, 30, 12, 24, 6, 30, 12, 12, 6, 18, 42, 48, 30, 30, 24, 12, 30, 18, 18, 24, 18, 36, 24, 18, 24, 24, 42, 18, 30, 42, 12, 18, 12, 36, 6, 60, 18, 42, 36, 30, 12, 6, 102, 24, 6, 42, 12, 6, 54, 6, 48, 12, 18, 30, 42
OFFSET
1,1
LINKS
MAPLE
N:= 10^4: # to use primes <= N
Primes:= select(isprime, {2, seq(i, i=3..N, 2)}):
A023203:= sort(convert(Primes intersect map(`+`, Primes, 10), list)):
A023203[2..-1] - A023203[1..-2]; # Robert Israel, Jun 02 2016
MATHEMATICA
Differences[Select[Prime[Range[500]], PrimeQ[#+10]&]] (* Harvey P. Dale, May 02 2011 *)
CROSSREFS
Cf. A053323.
Sequence in context: A193814 A304409 A081732 * A272771 A346675 A077038
KEYWORD
nonn,easy
AUTHOR
N. J. A. Sloane, Jul 31 2003
EXTENSIONS
More terms from Labos Elemer, Aug 04 2003
STATUS
approved