OFFSET
1,2
LINKS
Wikipedia, Table of divisors
EXAMPLE
12 is in the sequence because its divisors are 1, 2, 3, 4, 6, 12 and then we can see that the successive divisors 4, 6, and 12 are even numbers.
MAPLE
isA183147 := proc(n)
local di, i ;
if n = 1 then
return true;
end if;
di := sort(convert(numtheory[divisors](n), list)) ;
for i from 1 to nops(di)-1 do
if (op(i+1, di)-op(i, di)) mod 2 = 0 then
return true;
end if;
end do;
return false;
end proc:
for n from 1 to 100 do
if isA183147(n) then
printf("%d, ", n);
end if;
end do; # R. J. Mathar, Sep 30 2011
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Omar E. Pol, Aug 04 2011
STATUS
approved