OFFSET
1,1
LINKS
Harry J. Smith, Table of n, a(n) for n = 1..1000
EXAMPLE
13 is in the sequence because 13_10 = 1101_2 and prepending a 1 gives 11101_2 = 29_10, which is a prime.
MATHEMATICA
Do[p = Prime[n]; d = IntegerDigits[p, 2]; If[ PrimeQ[ FromDigits[ Prepend[d, 1], 2]], Print[p]], {n, 1, 350} ]
Select[Prime[Range[300]], PrimeQ[FromDigits[Join[{1}, IntegerDigits[#, 2]], 2]]&] (* Harvey P. Dale, Apr 10 2023 *)
PROG
(PARI) { n=0; t=log(2); for (m=1, 10^9, p=prime(m); if (isprime(p + 2^(1 + log(p)\t)), write("b065047.txt", n++, " ", p); if (n==1000, return)) ) } \\ Harry J. Smith, Oct 05 2009
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Robert G. Wilson v, Nov 05 2001
STATUS
approved