OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..2500
FORMULA
a(n) = prime(A027704(n)). - Michel Marcus, Mar 29 2018
MATHEMATICA
c[ n_ ] := OddQ[ Count[ IntegerDigits[ n, 2 ], 1 ] ]; Map[ Prime, Select[ Range[ 300 ], Not[ c[ Prime[ # ] ] ]&&c[ Prime[ #+1 ] ]& ] ]
Prime[#]&/@SequencePosition[Table[If[EvenQ[DigitCount[n, 2, 1]], 1, 0], {n, Prime[ Range[200]]}], {1, 0}][[All, 1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Apr 03 2019 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
EXTENSIONS
More terms from Erich Friedman.
Offset changed by Michel Marcus, Mar 29 2018
STATUS
approved