login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A133583 Index of smallest prime number where n consecutive leading digits of the index match n consecutive leading digits in the prime. 9
169, 5591, 6438, 6455 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,1
COMMENTS
Puzzle 217 on Carlos Rivera's The Prime Puzzles & Problems Connection has anticipated some of the concepts of this sequence. Several people have contributed to this puzzle and some of its terms may be seen there. In particular, the first page of the puzzle includes a term in this sequence.
72258*10^37 < a(5) < 74142*10^37. - Max Alekseyev, Sep 29 2015
LINKS
Carlos Rivera's The Prime Puzzles & Problems Connection, Puzzle 217
FORMULA
a(n) = A000720(A133584(n))
EXAMPLE
a(2)=5591 because this is the index of prime 55001 where n=2 and 55 in the index matches the first two leading digits of the prime.
MAPLE
A133583 := proc(n)
local p, i, dgsi, dgsp, d, wrks;
p := 2 ;
for i from 1 do
dgsi := convert(i, base, 10) ;
dgsp := convert(p, base, 10) ;
if nops(dgsi) >= n and nops(dgsp) >= n then
wrks := true;
for d from 1 to n do
if op(-d, dgsi) <> op(-d, dgsp) then
wrks := false ;
break;
end if;
end do:
if wrks then
return i;
end if;
end if;
p := nextprime(p) ;
end do:
end proc: # R. J. Mathar, Feb 14 2015
MATHEMATICA
Table[ind = 10^(n - 1); While[Take[IntegerDigits[ind], n] !=
Take[IntegerDigits[Prime[ind]], n], ind++]; ind, {n, 1, 4}] (* Robert Price, Apr 11 2019 *)
CROSSREFS
Cf. A133584.
Sequence in context: A201092 A264363 A232313 * A189277 A012170 A264269
KEYWORD
more,nonn,base
AUTHOR
Enoch Haga, Sep 17 2007, Sep 18 2007
STATUS
approved

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 29 10:44 EDT 2024. Contains 371268 sequences. (Running on oeis4.)