OFFSET
1,1
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
PROG
(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
(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
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Cino Hilliard, Jan 18 2004
EXTENSIONS
Better definition and offset by Omar E. Pol, Dec 24 2008
a(16) and a(26) corrected by Charles R Greathouse IV, Feb 07 2013
STATUS
approved