OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
C. K. Caldwell, The Prime Pages.
C. K. Caldwell, Twin Primes.
MATHEMATICA
a[0]=1; a[n_]:=a[n]=a[n-1]+10; Flatten[Table[If[PrimeQ[a[n]]&&PrimeQ[a[n]+2], {a[n], a[n]+2}, {}], {n, 0, 200}]] (* Vincenzo Librandi, Aug 15 2012 °)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Omar E. Pol, Aug 15 2007
STATUS
approved