login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A194282 Variant of the even lucky numbers (A045954). 0

%I

%S 2,6,10,14,18,26,30,34,38,50,54,58,62,74,78,82,86,102,106,110,114,122,

%T 126,130,134,154,158,162,170,178,182,194,202,210,222,226,230,246,250,

%U 254,258,266,270,274,278,290,298,314,318,326,338,342,346,354,370

%N Variant of the even lucky numbers (A045954).

%C Write down even numbers: 2, 4, 6, 8, ...; first term is 2 so starting from 2 remove every second number: 2, 6, 10, 14, 18, 22, 26, 30, 34, 38, 42, 46, 50, ...; next number is 6 so remove every 6th term starting from 2: 2, 6, 10, 14, 18, 26, 30, 34, 38, 42, 50, ...; etc.

%C This differs from the even lucky numbers in that for those the first step of removals consists of removing every fourth number rather than every second number as is done here. Michon calls this starting "the sieving directly with p = 2."

%H G. Michon, <a href="http://www.numericana.com/answer/primes.htm#sieve">Ulam's lucky numbers and ludic numbers</a> Numericana.com

%t lst = Range[2, 320, 2]; i = 1; While[i <= (len = Length@lst) && (k = lst[[i]]) <= len, lst = Drop[lst, {k, len, k}]; i++]; lst (* _Alonso del Arte_, based on _Robert G. Wilson v_'s program for A045954, Aug 22 2011 *)

%K nonn,easy

%O 1,1

%A _Alonso del Arte_, Aug 22 2011

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 March 20 05:29 EDT 2019. Contains 321344 sequences. (Running on oeis4.)