A090720 Primes whose representation in base 512 can be interpreted as a decimal prime.

2, 3, 5, 7, 521, 1033, 1543, 3079, 3593, 4099, 262147, 262151, 262153, 266759, 524801, 789001, 789511, 791047, 1051649, 1310723, 1312769, 1314823, 1572871, 1573379, 1574401, 1575433, 1835017, 1836553, 2098183, 2098697, 2100227, 2100743, 2101249, 2359303

Offset

1,1

Links

Alois P. Heinz, Table of n, a(n) for n = 1..10000 (first 48 terms from Robert Price)

Mathematica

okQ[n_]:=Module[{idn512=IntegerDigits[n, 512]}, And@@(#<10&/@idn512)&&PrimeQ[FromDigits[idn512]]]
Select[Prime[Range[400000]], okQ]  (* Harvey P. Dale, Dec 28 2010 *)

Crossrefs

Sequence in context: A046477 A360789 A145843 * A114780 A241681 A134811

Adjacent sequences: A090717 A090718 A090719 * A090721 A090722 A090723

Keyword

base,nonn

Author

Cino Hilliard, Jan 18 2004

Extensions

Better definition and offset corrected by Omar E. Pol, Dec 24 2008

Status

approved