OFFSET
1,1
REFERENCES
GCHQ, The GCHQ Puzzle Book, Penguin, 2016. See page 28.
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..20000
Albert Frank, International Contest Of Logical Sequences, 2002 - 2003. Item 2.
Albert Frank, Solutions of International Contest Of Logical Sequences, 2002 - 2003.
FORMULA
a(n) = A000796(n) + 1. - Michel Marcus, Mar 01 2016
MATHEMATICA
RealDigits[Pi, 10, 100][[1]]+1 (* Harvey P. Dale, Oct 11 2011 *)
PROG
(Magma)
pi:=Pi(RealField(130));
A000796:= Reverse(Intseq(Floor(10^110*pi))); // Bruno Berselli's code
[1 +A000796[n]: n in [1..100]]; // G. C. Greubel, Jul 18 2023
(SageMath)
x=numerical_approx(pi, digits=130)
a=[1 + ZZ(i) for i in x.str(skip_zeroes=True) if i.isdigit()]
a[:120] # G. C. Greubel, Jul 18 2023
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Herman Jamke (hermanjamke(AT)fastmail.fm), Oct 01 2006
STATUS
approved