OFFSET
1,1
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
PROG
(PARI) is(n)=numdiv(n)==18 && numdiv(n+1)==18
(PARI) list(lim)=my(v=List()); forprime(p=2, sqrtint(lim\12), forprime(q=2, sqrtint(lim\p^2\2), if(p==q, next); my(pq2=(p*q)^2); forprime(r=2, lim\pq2, if(p==r || q==r, next); t=pq2*r; if(numdiv(t-1)==18, listput(v, t-1)); if(numdiv(t+1)==18, listput(v, t))))); Set(v)
CROSSREFS
KEYWORD
nonn
AUTHOR
Charles R Greathouse IV, Jun 19 2016
STATUS
approved