OFFSET
1,1
LINKS
Robin Visser, Table of n, a(n) for n = 1..10000
PROG
(PARI) for( pqr=1, 1999, my(f=factor(pqr)); #f~==3 & vecmax(f[, 2])==1 & abs((f[3, 1]+1)%(f[1, 1]*f[2, 1])-1)==1 & print1(pqr ", "))
CROSSREFS
KEYWORD
nonn
AUTHOR
M. F. Hasler, Jun 03 2009
STATUS
approved