OFFSET
1,2
COMMENTS
Every term is a multiple of 12.
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..1000
EXAMPLE
120 has the prime factorization of 2^3 * 3^1 * 5^1. The distinct primes dividing 120 are therefore 2,3,5. 2-1=1, 3-1=2 and 5-1=4 all divide 120. Also, 2+1=3, 3+1=4 and 5+1=6 all divide 120. So 120 is included in the sequence.
MATHEMATICA
Select[Range[2, 1620], Function[n, AllTrue[FactorInteger[n][[All, 1]], AllTrue[# + {-1, 1}, Divisible[n, #] &] &]]] (* Michael De Vlieger, Sep 22 2017 *)
PROG
(Haskell)
a141766 n = a141766_list !! (n-1)
a141766_list = filter f [1..] where
f x = all (== 0) $ map (mod x) $ (map pred ps) ++ (map succ ps)
where ps = a027748_row x
-- Reinhard Zumkeller, Aug 27 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Jul 02 2008
EXTENSIONS
a(12)-a(50) from Donovan Johnson, Sep 27 2008
a(1)=1 prepended by Max Alekseyev, Aug 27 2013
STATUS
approved