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: A075625 A006094 A274320 * A045969 A100513 A338057

Adjacent sequences: A099617 A099618 A099619 * A099621 A099622 A099623

Keyword

nonn

Author

Reinhard Zumkeller, Oct 26 2004

Status

approved