login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A165713 a(n) = the smallest integer > n that is divisible by exactly the same number of distinct primes as n is. 5
3, 4, 5, 7, 10, 8, 9, 11, 12, 13, 14, 16, 15, 18, 17, 19, 20, 23, 21, 22, 24, 25, 26, 27, 28, 29, 33, 31, 42, 32, 37, 34, 35, 36, 38, 41, 39, 40, 44, 43, 60, 47, 45, 46, 48, 49, 50, 53, 51, 52, 54, 59, 55, 56, 57, 58, 62, 61, 66, 64, 63, 65, 67, 68, 70, 71, 69, 72, 78, 73, 74 (list; graph; refs; listen; history; text; internal format)
OFFSET

2,1

LINKS

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

EXAMPLE

12 = 2^2 *3, and so is divisible by exactly 2 distinct primes. The next larger number divisible by exactly 2 distinct primes is 14, which is 2*7. So a(12) = 14.

MATHEMATICA

a[n_] := For[nu = PrimeNu[n]; k = n+1, True, k++, If[PrimeNu[k] == nu, Return[k]]]; Table[a[n], {n, 2, 100}] (* Jean-Fran├žois Alcover, Nov 18 2013 *)

PROG

(Haskell)

a165713 n = head [x | x <- [n + 1 ..], a001221 x == a001221 n]

-- Reinhard Zumkeller, Aug 29 2013

CROSSREFS

Cf. A165712, A137929.

Cf. A001221, A079892.

Sequence in context: A000702 A067526 A101760 * A105148 A072556 A047365

Adjacent sequences:  A165710 A165711 A165712 * A165714 A165715 A165716

KEYWORD

nonn

AUTHOR

Leroy Quet, Sep 24 2009

EXTENSIONS

More terms from Sean A. Irvine, Feb 10 2010

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified May 19 10:55 EDT 2019. Contains 323390 sequences. (Running on oeis4.)