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,1

Comments

A079066(a(n)) = 12.

Links

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

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 &]

Prog

(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

Crossrefs

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

Sequence in context: A303999 A252036 A103113 * A122511 A172549 A172589

Adjacent sequences: A179919 A179920 A179921 * A179923 A179924 A179925

Keyword

base,nonn

Author

Robert G. Wilson v, Aug 01 2010

Status

approved