OFFSET
1,1
COMMENTS
Prime q is a decimal descendant of prime p if q = p*10+k and 0<=k<=9.
The number of direct decimal descendants is A038800(p).
a(n) is the total count of direct decimal descendants of the n-th prime that are also prime, plus their decimal descendants that are prime, and so on.
Conjecture: no terms bigger than 35 after a(8)=40.
LINKS
T. D. Noe, Table of n, a(n) for n = 1..10000
EXAMPLE
prime(3)=5 has eleven descendants: 53, 59, 593, 599, 5939, 59393, 59399, 593933, 593993, 5939333, 59393339. So a(3)=11. All candidates of the form 5nnn1 and 5nnn7 are divisible by 3.
prime(5)=11, the only decimal descendant of 11 that is prime is 113, and because there are no primes between 1130 and 1140, a(5)=1.
MAPLE
A214342 := proc(n)
option remember;
local a, p, k, d ;
a := 0 ;
p := ithprime(n) ;
for k from 0 to 9 do
d := 10*p+k ;
if isprime(d) then
a := a+1+procname(numtheory[pi](d)) ;
end if;
end do:
return a;
end proc: # R. J. Mathar, Jul 19 2012
MATHEMATICA
Table[t = {Prime[n]}; cnt = 0; While[t = Select[Flatten[Table[10*i + {1, 3, 7, 9}, {i, t}]], PrimeQ]; t != {}, cnt = cnt + Length[t]]; cnt, {n, 100}] (* T. D. Noe, Jul 24 2012 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Alex Ratushnyak, Jul 12 2012
STATUS
approved