OFFSET
1,1
COMMENTS
Start from the intersection of A023200 and A030432, then add the associated members of A046132. The last digits are obviously periodic as A010688. - R. J. Mathar, Nov 26 2008
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MATHEMATICA
a[0] = 7; a[n_] := a[n] = a[n - 1] + 10; Flatten[Table[If[PrimeQ[a[n]] && PrimeQ[a[n] + 4], {a[n], a[n] + 4}, {}], {n, 0, 1000}]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, May 04 2008
EXTENSIONS
Replaced Mathematica definition by humanly readable phrase. - R. J. Mathar, Nov 26 2008
STATUS
approved