A179922 Primes with twelve embedded primes.

113171, 113173, 113797, 123719, 153137, 179719, 199739, 213173, 229373, 231197, 233113, 233713, 236779, 237331, 237619, 237971, 241973, 259397, 317971, 327193, 343373, 353173, 361373, 372719, 373379, 382373, 432713, 519733, 521137, 521317

Offset: 1

Author

Robert G. Wilson v, Aug 01 2010

Keywords

• base
• nonn

Comments

A079066(a(n)) = 12.

Crossrefs

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

Programs

Haskell

import Data.List (elemIndices)
a179922 n = a179922_list !! (n-1)
a179922_list = map (a000040 . (+ 1)) $ elemIndices 12 a079066_list
-- Reinhard Zumkeller, Jul 19 2011

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@ 43150, f@# == 13 &]