OFFSET
1,1
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
PROG
(PARI) is(n)=my(f=factor(n), t); for(i=1, #f[, 1], if(f[i, 1]%3<2 && f[i, 2]>1, t=1); if(f[i, 1]%3==2, if(f[i, 2]%2, return(0), t=1))); t \\ Charles R Greathouse IV, Nov 04 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved