login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A091654 Frequency of primes produced by the greedy algorithm of A091652. 1

%I

%S 1,1,2,3,1,2,1,1,2,2,1,2,1,1,2,2,6,1,5,1,2,3,4,2,1,5,1,1,2,2,3,3,1,2,

%T 6,6,4,2,3,1,2,1,4,2,2,4,2,1,1,2,2,3,3,3,3,7,5,3,4,1,2,2,1,2,1,5,1,1,

%U 6,2,1,3,2,2,3,1,2,1,1,3,2,4,3,2,5,1,1,5,2,3,9,1,1,3,2,2,6,3,3,4,2,4,5,1,8

%N Frequency of primes produced by the greedy algorithm of A091652.

%t Needs["Statistics`DataManipulation`"]; n=1000; lst=Reverse[Range[2n]]; prms={}; Do[m=lst[[1]]; lst=Delete[lst, 1]; pos=1; While[Not[PrimeQ[m+lst[[pos]]]], pos++ ]; AppendTo[prms, m+lst[[pos]]]; lst=Delete[lst, pos], {i, n}]; First/@Frequencies[prms]

%K easy,nonn

%O 1,3

%A _T. D. Noe_, Jan 26 2004

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified October 20 22:22 EDT 2021. Contains 348119 sequences. (Running on oeis4.)