

A094743


Beginning with 2, increasing primes such that the sum of successive differences is also prime.


4



2, 5, 7, 13, 19, 31, 43, 61, 73, 103, 109, 139, 151, 181, 193, 199, 229, 241, 271, 283, 313, 349, 421, 433, 463, 523, 571, 601, 619, 643, 661, 811, 823, 829, 859, 883, 1021, 1033, 1051, 1063, 1093, 1153, 1231, 1279, 1291, 1303, 1321, 1429, 1453, 1483, 1489
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


COMMENTS

2 along with the larger member of twin primes.


LINKS

Vincenzo Librandi, Table of n, a(n) for n = 1..1000


MATHEMATICA

f[s_List] := Block[{p = NextPrime@ s[[ 1]]}, While[ !PrimeQ[p  2], p = NextPrime@p]; Append[s, p]]; Nest[f, {2}, 50] (* Robert G. Wilson v, Aug 09 2010 *)


CROSSREFS

Cf. A006512, A094744.
Sequence in context: A038959 A069351 A275011 * A175075 A262392 A056985
Adjacent sequences: A094740 A094741 A094742 * A094744 A094745 A094746


KEYWORD

nonn


AUTHOR

Amarnath Murthy, May 24 2004


EXTENSIONS

Changed offset from 0 to 1 by Vincenzo Librandi, Apr 14 2013


STATUS

approved



