OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
a = Table[ Prime[n], {n, 2, 600}]; b = {}; Do[d = (a[[n + 1]] - a[[n]])/2; If[ OddQ[ a[[n]] + d] && Mod[d, 3] == 0, b = Append[b, a[[n]] + d]], {n, 1, 598}]; b
CROSSREFS
KEYWORD
nonn
AUTHOR
Marco Matosic, Jun 25 2002
EXTENSIONS
Edited by N. J. A. Sloane and Robert G. Wilson v, Jun 27 2002
STATUS
approved