login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A079397 Smallest prime with memory = n. 43
2, 13, 23, 113, 137, 1237, 1733, 1373, 12373, 11317, 23719, 111317, 113171, 211373, 1131379, 1113173, 1317971, 2313797, 11131733, 11373379, 23931379, 113193797, 52313797, 129733313, 113733797, 523137971, 1113179719, 1317971939 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,1

COMMENTS

The memory of a prime p is the number of previous primes contained as substrings in (the decimal representation of) p.

Also the minimal prime such that the number of different prime substrings is n+1 (substrings with leading zeros are considered to be nonprime). - Hieronymus Fischer, Aug 26 2012

LINKS

Hieronymus Fischer, Table of n, a(n) for n = 0..36 (terms 0-31 from Robert G. Wilson v)

FORMULA

a(n) > 10^floor((sqrt(8*n+1)-1)/2). - Hieronymus Fischer, Aug 26 2012

a(n) >= min(A035244(k+1), k >= n). - Hieronymus Fischer, Aug 26 2012

EXAMPLE

113 is the smallest prime with memory = 3. (The smaller primes 3, 11, 13 are substrings of 113.) Hence a(3) = 113.

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]; t = Table[0, {30}]; p = 2; While[p < 11500000000, a = f@p; If[t[[a]] == 0, pp = PrimePi@p; t[[a]] = pp; Print[{a, p, pp}]]; p = NextPrime@p]; t (* Robert G. Wilson v, Aug 03 2010 *)

CROSSREFS

Cf. A079066, A035244, A035232.

Sequence in context: A085822 A213321 A093301 * A118524 A029971 A243619

Adjacent sequences:  A079394 A079395 A079396 * A079398 A079399 A079400

KEYWORD

base,nice,nonn

AUTHOR

Joseph L. Pe, Feb 16 2003

EXTENSIONS

Edited and extended by Robert G. Wilson v, Feb 25 2003

a(24)-a(27) from Robert G. Wilson v, Aug 03 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 April 24 10:11 EDT 2019. Contains 322420 sequences. (Running on oeis4.)