OFFSET
1,2
COMMENTS
Every term is a multiple of 12.
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
MATHEMATICA
a = {}; For[n = 2, n < 1500, n++, b = Select[Range[n], PrimeQ[ # ] && Mod[n, # ] == 0 &]; c = 1; For[d = 1, d < Length[b] + 1, d++, If[Mod[n, b[[d]] + 1] > 0, c = 0; Break]]; If[c == 1, AppendTo[a, n]]]; a (* Stefan Steinerberger, Jul 01 2008 *)
eppQ[n_]:=Union[Differences/@Select[Partition[Divisors[n], 2, 1], PrimeQ[ #[[1]]]&]]=={{1}}; Join[{1}, Select[Range[1200], eppQ]] (* Harvey P. Dale, May 27 2016 *)
PROG
(Haskell)
a140470 n = a140470_list !! (n-1)
a140470_list = filter
(\x -> all (== 0) $ map ((mod x) . (+ 1)) $ a027748_row x) [1..]
-- Reinhard Zumkeller, Aug 27 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Jun 28 2008
EXTENSIONS
More terms from Stefan Steinerberger, Jul 01 2008
a(1)=1 prepended by Max Alekseyev, Aug 27 2013
STATUS
approved