A079892 Least number > n having one more distinct prime factor than n.

2, 6, 6, 6, 6, 30, 10, 10, 10, 30, 12, 30, 14, 30, 30, 18, 18, 30, 20, 30, 30, 30, 24, 30, 26, 30, 28, 30, 33, 210, 33, 33, 42, 42, 42, 42, 38, 42, 42, 42, 44, 210, 44, 60, 60, 60, 48, 60, 50, 60, 60, 60, 54, 60, 60, 60, 60, 60, 62, 210, 62, 66, 66, 65, 66, 210, 68, 70, 70, 210

Offset

1,1

Comments

A001221(a(n)) = A001221(n) + 1;

a(A002110(k)) = A002110(k+1).

Links

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

Prog

(Haskell)
a079892 n = head [x | x <- [n + 1 ..], a001221 x == 1 + a001221 n]
-- Reinhard Zumkeller, Aug 29 2013

Crossrefs

Cf. A079893, A079890.

Cf. A165713.

Sequence in context: A294961 A048765 A103643 * A096014 A071888 A117217

Adjacent sequences: A079889 A079890 A079891 * A079893 A079894 A079895

Keyword

nonn

Author

Reinhard Zumkeller, Jan 14 2003

Status

approved