OFFSET
1,1
MATHEMATICA
Module[{qdp=If[#>3, Nothing, #]&/@RealDigits[Pi, 10, 100][[1]]}, Table[FromDigits[Take[qdp, n]], {n, Length[qdp]}]] (* Harvey P. Dale, Jul 08 2023 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Nov 24 2001
EXTENSIONS
Offset changed to 1 and more terms from Jinyuan Wang, Aug 31 2021
STATUS
approved