|
%I #6 Aug 11 2018 14:32:58
%S 2,4,6,8,0,2,4,6,8,2,0,2,2,2,2,2,4,2,2,6,2,2,8,2,0,2,4,6,8,4,0,4,4,2,
%T 4,4,4,4,4,6,4,4,8,4,0,2,4,6,8,6,0,6,6,2,6,6,4,6,6,6,6,6,8,6,0,2,4,6,
%U 8,8,0,8,8,2,8,8,4,8,8,6,8,8,8,8,0,2,4,6,8,0,0
%N The even members of the "Almost natural numbers" (A007376).
%C Also even members of A033307.
%e The initial (15) terms of A007376 are 1,2,3,4,5,6,7,8,9,1,0,1,1,1,2; omitting the odd terms 1,3,5,7,9,1,1,1 leaves the first 6 even terms 2,4,6,8,0,2: a(1) through a(6).
%t Select[ Flatten[ IntegerDigits /@ Range@ 100], EvenQ]
%Y Cf. A007376, A033307, A316988.
%K easy,nonn,base
%O 1,1
%A _Dave Durgin_ and _Robert G. Wilson v_, Aug 02 2018
|
