RosettaCodeData/Task/Blum-integer/J/blum-integer-3.j

   B=: blumseq 4e5
   {:1e5{.B
2075217
   {:2e5{.B
4275533
   {:3e5{.B
6521629
   {:4e5{.B
8802377
   {:B
8802377
   (~.,. 4e3 %~ #/.~) 10|B
1 25.0012
3 25.0167
7 24.9973
9 24.9847