A179914 Primes with six embedded primes.

1733, 1973, 2113, 2137, 2237, 2311, 2347, 2371, 2713, 2719, 2837, 2953, 2971, 3373, 3673, 3719, 3733, 3739, 4337, 4373, 4397, 4673, 5231, 5233, 5347, 5479, 6131, 6197, 6317, 6733, 6737, 7193, 7331, 7523, 8237, 8317, 8537, 9719, 10313, 10337, 10937

Offset

1,1

Comments

A079066(a(n)) = 6.

Links

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

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]; Select[ Prime@ Range@ 1330, f@# == 7 &]

Prog

(Haskell)
import Data.List (elemIndices)
a179914 n = a179914_list !! (n-1)
a179914_list = map (a000040 . (+ 1)) $ elemIndices 6 a079066_list
-- Reinhard Zumkeller, Jul 19 2011

Crossrefs

Cf. A039996, A079397, A033274, A034844, A092621, A179909 - A179919, A033274.

Sequence in context: A256807 A008745 A230967 * A113701 A283385 A083606

Adjacent sequences: A179911 A179912 A179913 * A179915 A179916 A179917

Keyword

base,nonn

Author

Robert G. Wilson v, Aug 01 2010

Status

approved