OFFSET
1,1
COMMENTS
A number is in the list if mod(n,2*A001222(n)) == 0.
LINKS
Christian N. K. Anderson, Table of n, a(n) for n = 1..10000
EXAMPLE
18 has 3 prime factors {2,3,3} and is divisible by 6=2*3; 184 has 4 prime factors {2,2,2,23} and is divisible by 8=2*4.
MATHEMATICA
Select[Range[2, 426], Mod[#, 2*PrimeOmega[#]] == 0 &] (* T. D. Noe, Apr 17 2013 *)
PROG
(R) y=c(); i=2; isint<-function(x) x==as.integer(x)
while(length(y)<10000) {if(isint(i/(2*length(factorize(i))))) y=c(y, i); i=i+1 }
CROSSREFS
KEYWORD
nonn
AUTHOR
Kevin L. Schwartz and Christian N. K. Anderson, Apr 16 2013
STATUS
approved