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

6, 15, 35, 119, 407, 559, 1037, 1387, 2231, 3683, 4247, 6179, 7913, 8557, 10951, 14257, 18113, 19093, 24053, 27193, 28981, 34681, 38263, 44411, 54611, 59893, 61903, 66233, 69869, 74467, 96139, 104407, 113573, 119123, 138421, 142091

Offset

1,1

Links

Reinhard Zumkeller, Table of n, a(n) for n = 1..99

Prog

(Haskell)
a099620 n = f (p - 1) $ drop (a099619 n) a098962_list where
   f c (x:xs) | c == 1 = if m == 0 then x else f 1 xs
              | m /= 0 = f c xs
              | m == 0 = f (c - if x' == p then 2 else 1) xs
              where (x', m) = divMod x p
   p = a000040 n
-- Reinhard Zumkeller, Feb 18 2013

Crossrefs

Cf. A099619.

Sequence in context: A006094 A379232 A274320 * A045969 A100513 A378746

Adjacent sequences: A099617 A099618 A099619 * A099621 A099622 A099623

Keyword

nonn

Author

Reinhard Zumkeller, Oct 26 2004

Status

approved