OFFSET
1,1
COMMENTS
Suggested by a comment by Alex Ratushnyak in A175330.
EXAMPLE
18 is a term since prime(18) AND prime(19) = 1,
prime(18) = 61 = binary 0111101
prime(19) = 67 = binary 1000011
bitwise AND = 0000001
MATHEMATICA
A366550list[upto_]:=PrimePi[Select[2^Range[upto], BitAnd[NextPrime[#], NextPrime[#, -1]]==1&]];
A366550list[37] (* Uses formula, considering values in A214415 up to 37 *)
PROG
(PARI) isok(k) = bitand(prime(k), prime(k+1)) == 1; \\ Michel Marcus, Oct 14 2023
CROSSREFS
KEYWORD
nonn,base,hard,more
AUTHOR
Paolo Xausa, Oct 13 2023
STATUS
approved