%I A039672
%S A039672 1,2,4,5,7,10,11,13,16,19,20,23,25,28,29,32,37,38,40,41,49,50,52,56,58,
%T A039672 59,61,65,68,74,76,77,82,83,86,88,91,97,101,103,104,106,115,118,121,
%U A039672 122,124,130,131,133,136,137,149,151,154,155,158,163,164,166,173,175
%N A039672 Fibonacci-lucky numbers: generated by a sieve process with Fibonacci 
               rule.
%C A039672 Start with 1 2 3 4 5 6 7 8 9 10 11 12 13...; sum of first and 2nd terms 
               = 3; strike out every 3rd term: 1 2 4 5 7 8 10 11 13...; sum of 2nd 
               and 3rd terms = 6; strike out every 6th term: 1 2 4 5 7 10 11 13...; 
               sum of 3rd and 4th terms = 9; strike out every 9th number; etc.
%H A039672 <a href="Sindx_Si.html#sieve">Index entries for sequences generated by 
               sieves</a>
%t A039672 Fold[ Delete[ #1, Thread[ List[ Rest[ Range[ 0, Length[ #1 ], #1[ [ #2 
               ] ]+#1[ [ #2+1 ] ] ] ] ] ] ]&, Range[ 200 ], Range[ 20 ] ]
%Y A039672 Cf. A000959, A039681.
%Y A039672 Sequence in context: A117741 A019271 A050130 this_sequence A014370 A095278 
               A155722
%Y A039672 Adjacent sequences: A039669 A039670 A039671 this_sequence A039673 A039674 
               A039675
%K A039672 nice,nonn
%O A039672 1,2
%A A039672 Felice Russo (felice.russo(AT)katamail.com)
%E A039672 Corrected by Larry Reeves (larryr(AT)acm.org), Feb 21 2001