OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1001 (offset adapted by Georg Fischer, Jan 31 2019)
MATHEMATICA
Prime[#]&/@Flatten[Position[Partition[Table[DigitCount[n, 2, 1], {n, Prime[ Range[300]]}], 2, 1], _?(EvenQ[First[#]]&&EvenQ[Last[#]]&), {1}, Heads-> False]] (* Harvey P. Dale, Aug 15 2013 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
EXTENSIONS
More terms from Erich Friedman.
Offset changed by Michel Marcus, Mar 29 2018
STATUS
approved