OFFSET
1,3
COMMENTS
FORMULA
PROG
(PARI) a(n, c=Pi)={ if( n>=precision(c), error("insufficient precision"), !ispseudoprime(c\10^-n--), factor(c\.1^n)[1, 1]), 0)}
CROSSREFS
KEYWORD
nonn,base
AUTHOR
M. F. Hasler, Mar 15 2024
STATUS
approved