OFFSET
1,1
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..10000
EXAMPLE
MATHEMATICA
Flatten@ Map[Select[Range @@ #, PrimeQ] &, 2 Select[Partition[#, 2, 1] &@ Prime@ Range@ 410, First@ Differences@ # <= 2 &]] (* Michael De Vlieger, Mar 18 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Apr 27 2010
EXTENSIONS
Entries checked by R. J. Mathar, May 10 2010
STATUS
approved