OFFSET
1,1
COMMENTS
LINKS
Donovan Johnson, Table of n, a(n) for n = 1..1000
PROG
(PARI) e=vector(3); for(n=360, 2540600, if(omega(n)==3, if(bigomega(n)==6, if(omega(n+1)==3, if(bigomega(n+1)==6, for(m=n, n+1, f=factorint(m); for(j=1, 3, e[j]=f[j, 2]); e=vecsort(e); for(j=1, 3, if(e[j]<>j, next(3)))); print1(n ", ")))))) \\ Donovan Johnson, Dec 17 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Will Nicholes, Jun 15 2010
EXTENSIONS
Extended by Ray Chandler, Jul 30 2010
STATUS
approved