The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A045954 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A045954

Even-Lucky-Numbers: generated by a sieve process like that for Lucky numbers but starting with even numbers.
(history; published version)

#35 by Peter Luschny at Thu Nov 17 05:15:37 EST 2022

STATUS

reviewed

approved

#34 by Joerg Arndt at Thu Nov 17 05:10:53 EST 2022

STATUS

proposed

reviewed

#33 by Joerg Arndt at Thu Nov 17 05:10:50 EST 2022

STATUS

editing

proposed

#32 by Joerg Arndt at Thu Nov 17 05:10:31 EST 2022

NAME

Even-Lucky-Numbers (ELN): generated by a sieve process like that for Lucky numbers but starting with even numbers.

STATUS

proposed

editing

Discussion

Thu Nov 17

05:10

Joerg Arndt: should be OK

#31 by Jon E. Schoenfield at Thu Nov 17 02:03:27 EST 2022

STATUS

editing

proposed

#30 by Jon E. Schoenfield at Thu Nov 17 02:03:25 EST 2022

MAPLE

## Finds all Even Lucky Numbers up to n from the list 2...n.

STATUS

proposed

editing

#29 by Jon E. Schoenfield at Thu Nov 17 02:02:37 EST 2022

STATUS

editing

proposed

#28 by Jon E. Schoenfield at Thu Nov 17 02:02:04 EST 2022

MAPLE

## Finds all Even Lucky Numbers up to n from the list 2...n.

## Try n=10^5 or 10^6 just for fun!

## Finds all Even Lucky Numbers up to n from the list 2...n. ## Try n=10^5 or 10^6 just for fun! evenluckynumbers:=proc(n) local k, Lnext, Lprev; Lprev:=[$2..n]; for k from 1 do Lnext:= map(w-> Lprev[w], remove(z -> z mod Lprev[k] = 0, [$1..nops(Lprev)])); if nops(Lnext)=nops(Lprev) then return Lnext fi; Lprev:=Lnext; od; end: # Walter Kehowski, Jun 06 2008

STATUS

proposed

editing

Discussion

Thu Nov 17

02:02

Jon E. Schoenfield: Does this work? Any Maplers out there?

#27 by Jon E. Schoenfield at Wed Nov 16 19:34:08 EST 2022

STATUS

editing

proposed

Discussion

Thu Nov 17

01:35

Michel Marcus: remove them ?

#26 by Jon E. Schoenfield at Wed Nov 16 19:31:47 EST 2022

COMMENTS

Write down even numbers: 2 , 4 , 6 , 8 , ...; first term > 2 is 4 so starting from 2 remove every 4th number: 2 , 4 , 6 , 10 , 12 , 14 , 18, ...; next number is 6 so remove every 6th term starting from 2: 2 , 4 , 6 , 10 , 12 , 18 , 20 , 22 , 26 , etc.

STATUS

approved

editing

Discussion

Wed Nov 16

19:34

Jon E. Schoenfield: I don’t know Maple, but am wondering how Maple knows where the comment that includes “Try n=10^5 or 10^6” ends and the executable statements begin.