login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A179919 Primes with eleven embedded primes. 15
111317, 113177, 113537, 113719, 113731, 117193, 117331, 121379, 123733, 129719, 131797, 132173, 132971, 136733, 136739, 137197, 137321, 137339, 137353, 137359, 137393, 137573, 152311, 172313, 173137, 173359, 174311, 193373, 211319, 213799 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

COMMENTS

A079066(a(n)) = 11.

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@ 19110, f@# == 12 &]

PROG

(Haskell)

import Data.List (elemIndices)

a179919 n = a179919_list !! (n-1)

a179919_list = map (a000040 . (+ 1)) $ elemIndices 11 a079066_list

-- Reinhard Zumkeller, Jul 19 2011

CROSSREFS

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

Sequence in context: A292471 A228253 A334170 * A296370 A206509 A033446

Adjacent sequences:  A179916 A179917 A179918 * A179920 A179921 A179922

KEYWORD

base,nonn

AUTHOR

Robert G. Wilson v, Aug 01 2010

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified July 15 12:46 EDT 2020. Contains 335771 sequences. (Running on oeis4.)