A090720 - OEIS

%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