Original entry on oeis.org
1, 6, 9, 30, 33, 203, 220, 1368, 2638, 10561, 10726, 18926, 86693, 101294, 170447, 734638, 749502, 1503095, 3131428, 6504583, 27508889, 56295291, 66084700, 98097954
Offset: 1
a(17)=749502 because prime(749502)=11373379, and
there are A178596(17)=20 primes embedded in 11373379:
{3, 7, 11, 13, 17, 31, 71, 79, 97, 113, 131, 179, 317, 797, 971, 11317, 17971, 131797, 317971, 1317971}.
A179908
First appearance of n in A039996: Primes embedded in prime(n).
Original entry on oeis.org
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
Offset: 1
-
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
Showing 1-2 of 2 results.