A065830 A065829 converted to base 10.
1, 3, 6, 13, 27, 55, 110, 220, 440, 881, 1762, 3524, 7048, 14097, 28195, 56390, 112781, 225562, 451125, 902250, 1804500, 3609000, 7218000, 14436001, 28872002, 57744005, 115488011, 230976023, 461952047, 923904094, 1847808189
Offset: 1
Links
- G. L. Honaker, Jr. and C. K. Caldwell, Prime Curios! 881
Programs
-
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 *)