|
%I #8 Jul 13 2013 12:03:16
%S 6,15,35,119,407,559,1037,1387,2231,3683,4247,6179,7913,8557,10951,
%T 14257,18113,19093,24053,27193,28981,34681,38263,44411,54611,59893,
%U 61903,66233,69869,74467,96139,104407,113573,119123,138421,142091
%N Greatest multiple of the n-th prime in A098962.
%H Reinhard Zumkeller, <a href="/A099620/b099620.txt">Table of n, a(n) for n = 1..99</a>
%o (Haskell)
%o a099620 n = f (p - 1) $ drop (a099619 n) a098962_list where
%o f c (x:xs) | c == 1 = if m == 0 then x else f 1 xs
%o | m /= 0 = f c xs
%o | m == 0 = f (c - if x' == p then 2 else 1) xs
%o where (x',m) = divMod x p
%o p = a000040 n
%o -- _Reinhard Zumkeller_, Feb 18 2013
%Y Cf. A099619.
%K nonn
%O 1,1
%A _Reinhard Zumkeller_, Oct 26 2004
|
