OFFSET
0,4
COMMENTS
An approximate value of a(n) is given by C*10^n*(exp(-2) - 1/log(10^n)), where C = 0.209.
PROG
(PARI) a(n)={t=0; forstep(m=2, 10^n, 2, if(!(m%3)==0, x=0; until(p<2||isprime(p), p=m-3^x; x++); if(p<2, t++))); return(t)};
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Arkadiusz Wesolowski, Feb 21 2017
STATUS
approved