login
Greatest multiple of the n-th prime in A098962.
3

%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