Original entry on oeis.org
3, 13, 881, 14436001, 461952047, 14782465513, 7568622343067, 3968137871002260679, 65013970878501038966321
Offset: 1
A065832
Numbers k such that the first k binary digits found in the base-10 expansion of Pi form a prime (when the decimal point is ignored).
Original entry on oeis.org
2, 4, 10, 24, 29, 34, 43, 62, 76, 351, 778, 2736, 4992, 7517, 22044, 40390, 204505
Offset: 1
The first a(3)=10 binary digits of Pi are 1101110001_2 which is prime 881_10.
-
p = First[ RealDigits[ Pi, 10, 10^5]]; p = p[[ Select[ Range[10^5], p[[ # ]] == 0 || p[[ # ]] == 1 & ]]]; Do[ If[ PrimeQ[ FromDigits[ Take[p, n], 2]], Print[n]], {n, 1, Length[p] } ]
Showing 1-2 of 2 results.
Comments