Revision History for A065576
(Underlined text is an addition;
strikethrough text is a deletion.)
Showing all changes.
|
|
|
|
#7 by Susanna Cuyler at Sun Apr 11 16:12:37 EDT 2021
|
|
|
|
#6 by Jon E. Schoenfield at Sun Apr 11 15:37:53 EDT 2021
|
|
|
|
#5 by Jon E. Schoenfield at Sun Apr 11 15:37:51 EDT 2021
|
| NAME
|
TheNumbers k such that the first nk nonary digits found in decimal expansion of piPi form a prime.
|
| STATUS
|
approved
editing
|
|
|
|
#4 by Bruno Berselli at Sun Sep 30 01:34:10 EDT 2012
|
|
|
|
#3 by Bruno Berselli at Sun Sep 30 01:34:06 EDT 2012
|
| COMMENTS
|
p = First[RealDigits[Pi, 10, 10^5]]; p = p[[ Select[ Range[10^5], p[[ # ]] != 9 & ]]]; Do[ If[ PrimeQ[ FromDigits[ Take[p, n], 9]], Print[n]], {n, 1, 2250} ]
|
| MATHEMATICA
|
p = First[RealDigits[Pi, 10, 10^5]]; p = p[[ Select[ Range[10^5], p[[ # ]] != 9 & ]]]; Do[ If[ PrimeQ[ FromDigits[ Take[p, n], 9]], Print[n]], {n, 2250} ]
|
| STATUS
|
approved
editing
|
|
|
|
#2 by Russ Cox at Fri Mar 30 17:30:37 EDT 2012
|
| AUTHOR
|
_Robert G. Wilson v (rgwv(AT)rgwv.com), _, Dec 01 2001
|
|
|
Discussion
|
Fri Mar 30
| 17:30
| OEIS Server: https://oeis.org/edit/global/156
|
|
|
|
#1 by N. J. A. Sloane at Fri May 16 03:00:00 EDT 2003
|
| NAME
|
The first n nonary digits found in decimal expansion of pi form a prime.
|
| DATA
|
1, 447, 562, 1686
|
| OFFSET
|
1,2
|
| COMMENTS
|
p = First[RealDigits[Pi, 10, 10^5]]; p = p[[ Select[ Range[10^5], p[[ # ]] != 9 & ]]]; Do[ If[ PrimeQ[ FromDigits[ Take[p, n], 9]], Print[n]], {n, 1, 2250} ]
|
| KEYWORD
|
base,nonn
|
| AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Dec 01 2001
|
| STATUS
|
approved
|
|
|
|
|