|
|
|
|
|
|
|
|
|
#7 by N. J. A. Sloane at Thu Dec 05 19:55:14 EST 2013
|
|
| AUTHOR
|
_Amarnath Murthy (amarnath_murthy(AT)yahoo.com), _, Mar 10 2002
|
|
|
|
|
Discussion
|
| Thu Dec 05
| 19:55
| OEIS Server: https://oeis.org/edit/global/2075
|
|
|
|
|
|
|
#6 by Russ Cox at Sat Mar 31 10:22:55 EDT 2012
|
|
| EXTENSIONS
|
More terms from _Sascha Kurz (sascha.kurz(AT)uni-bayreuth.de), _, Mar 17 2002
|
|
|
|
|
Discussion
|
| Sat Mar 31
| 10:22
| OEIS Server: https://oeis.org/edit/global/354
|
|
|
|
|
|
|
#5 by N. J. A. Sloane at Wed Sep 22 03:00:00 EDT 2004
|
|
| KEYWORD
|
nonn,base,new
|
|
| EXTENSIONS
|
More terms from Sascha Kurz (sascha.kurz(AT)stud.uni-bayreuth.de), Mar 17 2002
|
|
|
|
|
|
|
#4 by N. J. A. Sloane at Sat Jun 12 03:00:00 EDT 2004
|
|
| MAPLE
|
for i from 0 to 30 do a:= := nextprime(7^i*10); b:= := 1; while(a-7^i*10^b>=10^b) do b:= := b+1; a:= := nextprime(7^i*10^b); end do; c[i]:=] := a; end do:q:= := seq(c[i], i=0..30);
|
|
| KEYWORD
|
nonn,base,new
|
|
|
|
|
|
|
#3 by N. J. A. Sloane at Thu Feb 19 03:00:00 EST 2004
|
|
| MAPLE
|
for i from 0 to 30 do a:=nextprime(7^i*10); ); b:=1; while(a-7^i*10^b>=10^b) do b:=b+1; ; a:=nextprime(7^i*10^b); ); end do; ; c[i]:=a; ; end do:q:=seq(c[i], i=0..30);
|
|
| KEYWORD
|
nonn,base,new
|
|
|
|
|
|
|
#2 by N. J. A. Sloane at Sat Sep 13 03:00:00 EDT 2003
|
|
| KEYWORD
|
nonn,base,new
|
|
| EXTENSIONS
|
More terms from Sascha Kurz (ssascha.kurz(AT)tustud.uni-bsbayreuth.de), Mar 17 2002
|
|
|
|
|
|
|
#1 by N. J. A. Sloane at Fri May 16 03:00:00 EDT 2003
|
|
| NAME
|
Smallest prime with same leading digits as 7^n.
|
|
| DATA
|
11, 71, 491, 3433, 24019, 168071, 11764967, 8235431, 576480103, 403536071, 2824752493, 19773267431, 1384128720101, 9688901040727, 6782230728491, 474756150994337, 3323293056960127, 23263051398720713, 162841359791044903
|
|
| OFFSET
|
0,1
|
|
| EXAMPLE
|
a(3)=3433 because this is the smallest prime starting with 7^3=343.
|
|
| MAPLE
|
for i from 0 to 30 do a:=nextprime(7^i*10); b:=1; while(a-7^i*10^b>=10^b) do b:=b+1; a:=nextprime(7^i*10^b); end do; c[i]:=a; end do:q:=seq(c[i], i=0..30);
|
|
| CROSSREFS
|
Cf. A068846.
|
|
| KEYWORD
|
nonn,base
|
|
| AUTHOR
|
Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Mar 10 2002
|
|
| EXTENSIONS
|
More terms from Sascha Kurz (s.kurz(AT)tu-bs.de), Mar 17 2002
|
|
| STATUS
|
approved
|
|
|
|
|
|
