cp's OEIS Frontend

A099620 Greatest multiple of the n-th prime in A098962.

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