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

%I A075311
%S A075311 1,3,5,6,9,10,12,15,17,18,20,23,24,27,29,30,33,34,36,39,40,43,45,46,48,
%T A075311 51,53,54,57,58,60,65,66,68,71,72,75,77,78,80,83,85,86,89,90,92,96,99,
%U A075311 101,102,105,106,108,113,114,116,120,127,129,130,132,135,136,139,141
%N A075311 a(1) = 1; for n > 1, a(n) = smallest number m > a(n-1) such that number 
               of 1's in binary expansion of m is not already in the sequence.
%C A075311 If A000120(k) is in sequence then k is not.
%C A075311 Differs from A001969: 63 is not included since it has 6 bits set.
%H A075311 Phil Carmody, <a href="http://groups.yahoo.com/group/primenumbers/message/
               9173">Re: New sieve and a challenge</a>
%H A075311 Jon Perry, <a href="http://groups.yahoo.com/group/primenumbers/message/
               9171">New sieve and a challenge</a>
%e A075311 We start with a(1)=1. Then 2 is not included since it has one bit set 
               and 1 is in sequence. Next, 3 is included since it has 2 one bits 
               and 2 is not in sequence. And so on.
%o A075311 (PARI) v=vector(1000): v[1]=1: for(curr=2,1000,e=A000120(curr): if(v[e],
               continue,v[curr]=1)): for(k=1,1000,if(v[k],print1(k",")))
%Y A075311 Sequence in context: A165740 A080307 A001969 this_sequence A032786 A080309 
               A018900
%Y A075311 Adjacent sequences: A075308 A075309 A075310 this_sequence A075312 A075313 
               A075314
%K A075311 easy,nonn
%O A075311 1,2
%A A075311 Phil Carmody (pc+oeis(AT)asdf.org), Oct 11 2002
%E A075311 Edited by Ralf Stephan (ralf(AT)ark.in-berlin.de), Sep 14 2003

Search completed in 0.001 seconds