OFFSET
1,1
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..676
EXAMPLE
a(1) = 173599 is the smallest in set of 4 consecutive odd numbers {173599, 173601, 173603, 173605} whose binary representations respectively are {101010011000011111, 101010011000100001, 101010011000100011, 101010011000100101} which are all prime when read in decimal.
MATHEMATICA
Select[Range[-1, 30000001, 2], PrimeQ[FromDigits[IntegerDigits[(#), 2]]] && PrimeQ[FromDigits[IntegerDigits[(# + 2), 2]]] && PrimeQ[FromDigits[IntegerDigits[(# + 4), 2]]] && PrimeQ[FromDigits[IntegerDigits[(# + 6), 2]]] &]
Select[Partition[Range[1, 23518000, 2], 4, 1], AllTrue[ FromDigits[ #]&/@ IntegerDigits[#, 2], PrimeQ]&][[All, 1]] (* Harvey P. Dale, Aug 30 2021 *)
PROG
(PARI) has(n)=isprime(fromdigits(binary(n), 10))
is(n)=has(n) && has(n+2) && has(n+4) && has(n+6) \\ Charles R Greathouse IV, Jan 29 2017
CROSSREFS
KEYWORD
nonn,base
AUTHOR
K. D. Bajpai, Jan 25 2017
STATUS
approved