A282974 Numbers k such that A011546(k-1) is a prime.
1, 2, 6, 12, 1902, 3971, 5827, 16208, 47577
Offset: 1
Links
- Lucas A. Brown, A282974.py
- Eric Weisstein's World of Mathematics, Pi-Prime
Programs
-
Mathematica
Do[If[PrimeQ[Round[Pi*10^(n-1)]],Print[n]],{n,17511}]
-
PARI
default(realprecision, 10^5); x=Pi; is(k) = ispseudoprime(round(x*10^k--)); \\ Jinyuan Wang, Mar 27 2020
Extensions
a(8) and a(9) from Lucas A. Brown, Apr 05 2021
Definition corrected by Lucas A. Brown, Apr 05 2021
Comments