

A179908


First appearance of n in A039996: Primes embedded in prime(n).


0



1, 6, 9, 30, 33, 203, 270, 220, 1476, 1368, 2638, 10561, 10726, 18926, 87984, 86693, 101294, 170447, 734638, 749502, 1503095, 6475615, 3131428, 7364000, 6504583, 27508889, 56295291, 66084700, 98097954
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,2


LINKS

Table of n, a(n) for n=1..29.


MATHEMATICA

f[n_] := Block[ {id = IntegerDigits@n}, len = Length@ id  1; Count[ PrimeQ@ Union[ FromDigits@# & /@ Flatten[ Table[ Partition[ id, k, 1], {k, len}], 1]], True] + 1]; t = Table[0, {30}]; p = 2; While[p < 2*10^9, a = f@p; If[ t[[a]] == 0, pp = PrimePi@p; t[[a]] = pp; Print[{a, p, pp}]]; p = NextPrime@p]; t


CROSSREFS

Cf. A039996, A079397, A178596, A178597.
Sequence in context: A091519 A086491 A178597 * A180325 A192425 A219687
Adjacent sequences: A179905 A179906 A179907 * A179909 A179910 A179911


KEYWORD

nonn,base


AUTHOR

Robert G. Wilson v, Aug 01 2010


STATUS

approved



