OFFSET
1,1
PROG
(PARI) is(n)=my(f=factor(n)); f[, 2]==[1, 1]~ && f[2, 1]%f[1, 1]==1 \\ Charles R Greathouse IV, Oct 22 2015
(PARI) list(lim)=my(v=List()); forprime(q=3, lim\2, forprime(p=2, min(lim\q, q-1), if(q%p==1, listput(v, p*q)))); Set(v) \\ Charles R Greathouse IV, Oct 22 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Patrick De Geest, Oct 13 2001
EXTENSIONS
Definition corrected by Franklin T. Adams-Watters, Oct 09 2006
STATUS
approved