|
%I #16 Sep 24 2018 02:43:41
%S 1101001001,10111110001,101000101001,101011111001,1000110001001,
%T 1110000111001,1110110010001,10110010111001,100011100110001,
%U 111111111111001,1000101110001001,1101011110111001,1111101000001001,10101100010010001
%N "Binary prime squares": squares whose binary expansions, read as decimal expansions, are primes.
%C Another definition: numbers having only digits 1 and 0 which, read in base 10, are primes, and in base 2 are squares. Derived from A108322 from which the 0-terms have been removed.
%t fd2[n_]:=FromDigits[IntegerDigits[n,2]]; fd2/@Select[Range[300]^2, PrimeQ[fd2[#]]&](* _Harvey P. Dale_, Jul 10 2012 *)
%Y Cf. A108322, A108324, A108325.
%K easy,nonn,base
%O 1,1
%A _Alexandre Wajnberg_, Jun 30 2005
%E More terms from _Harvey P. Dale_, Jul 10 2012
|
