A059833 "Madonna's Sequence": add 1 (mod 10) to each digit of Pi.

4, 2, 5, 2, 6, 0, 3, 7, 6, 4, 6, 9, 0, 8, 0, 4, 3, 4, 9, 5, 7, 3, 7, 5, 4, 4, 9, 4, 3, 8, 0, 6, 1, 3, 9, 9, 5, 2, 0, 8, 2, 7, 0, 4, 0, 0, 4, 8, 6, 2, 1, 6, 9, 3, 1, 0, 8, 5, 0, 5, 5, 6, 0, 3, 4, 1, 8, 9, 2, 7, 5, 1, 7, 3, 9, 7, 3, 1, 9, 0, 0, 9, 7, 3, 9, 1, 4, 5, 9, 3, 6, 4, 5, 3, 2, 2, 8, 1, 7, 8, 0, 9, 3, 2, 5

Offset: 1

Author

Jason Earls, Feb 25 2001

Keywords

• easy
• nonn
• base

Examples

			4.25260376469080434957375449438...
		

References

• Clifford Pickover, Wonders of Numbers, Oxford University Press, 2001, p. 194.

Links

• C. A. Pickover, "Wonders of Numbers, Adventures in Mathematics, Mind and Meaning," Zentralblatt review

Programs

Maple

Digits := 300: with(numtheory): it := evalf(Pi/10, 300)-floor(evalf(Pi/10, 300)): for i from 1 to 300 do printf(`%d,`,floor(10*it)+1 mod 10): it := 10*it-floor(10*it): od:

Mathematica

Mod[# + 1, 10]&/@RealDigits[Pi, 10, 120][[1]] (* Harvey P. Dale, Jul 19 2011 *)

Python

from sympy import S
def alist(nn): return [4]+[(1+int(d))%10 for d in str(S.Pi.n(nn+2))[2:nn+1]]
print(alist(105)) # Michael S. Branicky, Apr 02 2021

Extensions

More terms from James Sellers, Feb 26 2001

Offset set to 1 by Alois P. Heinz, Jul 05 2022