%I #19 Nov 02 2023 21:19:15
%S 2,3,5,7,257,263,521,769,1031,1283,1289,1543,1801,2311,65537,65539,
%T 65543,66569,67079,67843,131591,131849,132611,133121,133379,196871,
%U 197383,197641,197891,198409,198659,262153,262657,263171,327689,329473,329993,393479,394241
%N Primes whose representation in base 256 can be interpreted as a decimal prime.
%H Alois P. Heinz, <a href="/A090719/b090719.txt">Table of n, a(n) for n = 1..10000</a> (first 100 terms from Harvey P. Dale)
%t b256Q[n_]:=Module[{id=IntegerDigits[n,256]},Max[id]<10&&PrimeQ[FromDigits[id]]]; Select[ Prime[Range[35000]],b256Q] (* _Harvey P. Dale_, Sep 02 2023 *)
%Y Cf. A000040.
%K base,nonn
%O 1,1
%A _Cino Hilliard_, Jan 18 2004
%E Better definition from _Omar E. Pol_, Dec 24 2008
|