OFFSET
1,1
COMMENTS
Primitive elements of the sequence A137428 of numbers which have a composite divisor smaller than their largest prime factor: That sequence consists of all multiples of the terms of this sequence.
PROG
(PARI) is(n)={bittest(12, #f=factor(n)~) && f[1, #f]^2>n && setsearch([[2, 1], [1, 1, 1]], f[2, ])}
CROSSREFS
KEYWORD
nonn
AUTHOR
M. F. Hasler, Jan 02 2015
STATUS
approved