|
%I #18 Nov 02 2023 19:59:47
%S 2,3,5,7,521,1033,1543,3079,3593,4099,262147,262151,262153,266759,
%T 524801,789001,789511,791047,1051649,1310723,1312769,1314823,1572871,
%U 1573379,1574401,1575433,1835017,1836553,2098183,2098697,2100227,2100743,2101249,2359303
%N Primes whose representation in base 512 can be interpreted as a decimal prime.
%H Alois P. Heinz, <a href="/A090720/b090720.txt">Table of n, a(n) for n = 1..10000</a> (first 48 terms from Robert Price)
%t okQ[n_]:=Module[{idn512=IntegerDigits[n,512]},And@@(#<10&/@idn512)&&PrimeQ[FromDigits[idn512]]]
%t Select[Prime[Range[400000]],okQ] (* _Harvey P. Dale_, Dec 28 2010 *)
%K base,nonn
%O 1,1
%A _Cino Hilliard_, Jan 18 2004
%E Better definition and offset corrected by _Omar E. Pol_, Dec 24 2008
|
