A090721 - OEIS

%I #12 Jan 10 2014 23:48:49

%S 2,3,5,7,1031,1033,3079,4099,6151,7177,1048583,1049603,1050631,

%T 1051649,1053697,1054723,2099203,2100227,2101249,2102273,2102279,

%U 2105347,3148801,3148807,3149831,3150857,3151879,3153923,3153929,4198409,4200451,5242883

%N Primes whose representation in base 1024 can be interpreted as a decimal prime.

%H Charles R Greathouse IV, <a href="/A090721/b090721.txt">Table of n, a(n) for n = 1..10000</a>

%o (PARI) is(n)=if(!isprime(n),return(0));my(s,t,b=1);while(n,t=n%1024;if(t>9,return(0));s+=t*b;b*=10;n>>=10);s \\ _Charles R Greathouse IV_, Feb 07 2013

%o (PARI) v=List();forprime(p=2,1e3,d=digits(p);t=sum(i=1,#d,d[i]<<(10*(#d-i)));if(ispseudoprime(t),listput(v,t)));Vec(v) \\ _Charles R Greathouse IV_, Feb 07 2013

%Y Cf. A089971, A089981, A090707 - A090720, A065720 - A065727.

%K base,nonn

%O 1,1

%A _Cino Hilliard_, Jan 18 2004

%E Better definition and offset by _Omar E. Pol_, Dec 24 2008

%E a(16) and a(26) corrected by _Charles R Greathouse IV_, Feb 07 2013