Search: id:A119017
Results 1-1 of 1 results found.

%I A119017
%S A119017 3,73,4639,67,3,3,3,3,3,5,3,5,5,5,17,17,1069,5,3,5,17,3,9099300883537,
%T A119017 17,3,5,19,3,17,19,3,17,3,19,3,17,5,17,5,3,3,257,3,5,3,3,131,3,3,19,3,
               5,
%U A119017 17,37,5,1153,1033,73,19,3,3,16657,17,17,5,19,3,19,3,3,3,3,19,3,17,3,3
%N A119017 Primes from binary expansion of Pi, another version. Starting with the 
               first bit of the binary expansion, A004601 = 1,1,0,0,1,0,0,1,0,0,
               0,0,1,1,1,1,1,1,0,1,1,0,1,... we move rightward until we encounter 
               another 1. Since 11 (= 3 in decimal) is prime, we move to the next 
               1 and repeat the process.
%C A119017 Records: 3, 73, 4649, 9099300883537, 378487849728219365164948588555156804311078545466471189510990980099254038\
               29863969526043052181881, ..., . - Robert G. Wilson v (rgwv(AT)rgwv.com), 
               Jul 24 2006
%e A119017 11 = 3
%e A119017 1001001 = 73
%e A119017 1001000011111 = 4639
%e A119017 1000011 = 67
%e A119017 11 = 3
%e A119017 11 = 3
%e A119017 11 = 3
%t A119017 ps = First@RealDigits[Pi, 2, 10^3]; lst = {}; Do[k = 1; While[fd = FromDigits[ 
               Take[ps, k], 2]; EvenQ@fd || ! PrimeQ@fd, k++ ]; AppendTo[lst, fd]; 
               j = 1; While[ ps[[j]] != 1, j++ ]; ps = Drop[ps, j], {n, 77}]; lst 
               - Robert G. Wilson v (rgwv(AT)rgwv.com), Jul 24 2006
%Y A119017 Cf. A004601, A068425, A117721, A065987.
%Y A119017 Sequence in context: A093165 A012810 A020517 this_sequence A002667 A145675 
               A162601
%Y A119017 Adjacent sequences: A119014 A119015 A119016 this_sequence A119018 A119019 
               A119020
%K A119017 nonn,base
%O A119017 1,1
%A A119017 Russell Walsmith (ixitol(AT)gmail.com), Jul 23 2006
%E A119017 More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Jul 24 2006

Search completed in 0.001 seconds