A065839 Primes found in A065838.
3, 13, 53, 859, 880571, 230836658783, 18727694659923768688081143062632211180505377, 1448985191439414787314128433365601157107793684026416650771108564122239
Offset: 1
This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
E.g., the first a(5) or 10 quaternary digits of Pi are 31.12332323{4} and 3112332323{4} is the prime 880571{10}.
p = First[ RealDigits[ Pi, 10, 10^5]]; p = p[[ Select[ Range[10^5], p[[ # ]] == 0 || p[[ # ]] == 1 || p[[ # ]] == 2 || p[[ # ]] == 3 & ]]]; Do[ If[ PrimeQ[ FromDigits[ Take[p, n], 4]], Print[ n]], {n, 1, 4000} ]
Comments