[go: up one dir, main page]

login
A108322
"Binary prime squares": a(n) = n^2 written in base 2 and interpreted as a base-10 number, if that number is prime; a(n) = 0 otherwise.
4
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1101001001, 0, 0, 0, 0, 0, 0, 0, 0, 0, 10111110001, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 101000101001, 0, 101011111001, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1000110001001, 0, 0, 0, 0, 0, 0, 0, 0, 0
OFFSET
1,29
COMMENTS
Another definition: numbers having only digits 1 and 0, which, read in base 10 are primes and in base 2 are perfect squares.
LINKS
EXAMPLE
a(5)=0 because 5^2 = 25 = 11001_2, and the decimal number 11001 is not prime.
a(29)=1101001001 because 29^2 = 841 = 1101001001_2, and the decimal number 1101001001 is prime.
MATHEMATICA
bps[n_]:=With[{c=FromDigits[IntegerDigits[n^2, 2]]}, If[PrimeQ[c], c, 0]]; Array[bps, 80] (* Harvey P. Dale, Jun 12 2024 *)
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Alexandre Wajnberg, Jun 30 2005
EXTENSIONS
Edited by Jon E. Schoenfield, Sep 23 2018
Offset corrected by Michel Marcus, Sep 24 2018
STATUS
approved