OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
a(1)=9 because 9(written in base 10)=1001 where 2=prime number of 0's and 2=prime number of 1's.
MAPLE
A000120 := proc(n) add(d, d=convert(n, base, 2)) ; end proc:
for n from 1 to 300 do spr :=A001358(n) ; if isprime( A080791(spr) ) and isprime(A000120(spr)) then printf("%d, ", spr) ; end if; end do: # R. J. Mathar, Aug 12 2010
MATHEMATICA
Select[Range[600], PrimeOmega[#]==2&&AllTrue[{DigitCount[ #, 2, 0], DigitCount[ #, 2, 1]}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, May 25 2016 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Juri-Stepan Gerasimov, May 25 2010
EXTENSIONS
Corrected (167 removed) by R. J. Mathar, Aug 12 2010
STATUS
approved