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