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