OFFSET
1,2
LINKS
G. L. Honaker, Jr. and C. K. Caldwell, Prime Curios! 881
MATHEMATICA
FromDigits[IntegerDigits[#], 2]&/@(FromDigits/@Module[{bd=DeleteCases[ RealDigits[ Pi, 10, 200][[1]], _?(#>1&)]}, Table[Take[bd, n], {n, Length[bd]}]]) (* Harvey P. Dale, Jul 02 2022 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Nov 24 2001
STATUS
approved