This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A179908 #4 Jan 04 2013 16:09:20
%S A179908 1,6,9,30,33,203,270,220,1476,1368,2638,10561,10726,18926,87984,86693,
%T A179908 101294,170447,734638,749502,1503095,6475615,3131428,7364000,6504583,
%U A179908 27508889,56295291,66084700,98097954
%N A179908 First appearance of n in A039996: Primes embedded in prime(n).
%t A179908 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
%Y A179908 Cf. A039996, A079397, A178596, A178597.
%K A179908 nonn,base
%O A179908 1,2
%A A179908 _Robert G. Wilson v_, Aug 01 2010