OFFSET
1,1
COMMENTS
What is the density of these numbers? It's clear that lim a(n)/n^2 = 0.
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Range[800], EvenQ[FactorInteger[#][[-1, 2]]]&] (* Harvey P. Dale, Jul 22 2013 *)
PROG
(PARI) is(n)=if(n<4, 0, n=factor(n)[, 2]; n[#n]%2==0) \\ Charles R Greathouse IV, Sep 14 2011
CROSSREFS
KEYWORD
nonn
AUTHOR
Charles R Greathouse IV, Sep 13 2011
STATUS
approved