OFFSET
1,2
COMMENTS
MATHEMATICA
Select[Range[10000], FactorInteger[ # (# + 1)][[ -1, 1]] <= 11 &]
PROG
(PARI) for(n=1, 9e6, vecmax(factor(n++)[, 1])<12 && vecmax(factor(n--+(n<2))[, 1])<12 && print1(n", ")) \\ Skips 2 if n+1 is not 11-smooth: Twice as fast as the naive version.
CROSSREFS
KEYWORD
nonn,fini,full
AUTHOR
M. F. Hasler, Jan 16 2015
STATUS
approved