OFFSET
2,1
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 2..10000
EXAMPLE
8 = 2^3, and so is divisible by exactly 3 primes counted with multiplicity. The next larger number divisible by exactly 3 primes counted with multiplicity is 12, which is 2^2 *3. So a(8) = 12.
MATHEMATICA
a[n_] := For[Om = PrimeOmega[n]; k = n+1, True, k++, If[PrimeOmega[k] == Om, Return[k]]]; Table[a[n], {n, 2, 100}] (* Jean-François Alcover, Jul 21 2017 *)
Module[{nn = 10^2, s, t}, s = PositionIndex@ Array[PrimeOmega, {nn}]; t = ConstantArray[0, nn]; TakeWhile[#, # > 0 &] &@ Rest@ ReplacePart[t, Flatten@ Map[#1 -> #2 & @@ # &, Map[Partition[Lookup[s, #], 2, 1] &, Keys@ s], {2}]]] (* Michael De Vlieger, Jul 21 2017 *)
PROG
(Haskell)
a165712 n = head [x | x <- [n + 1 ..], a001222 x == a001222 n]
-- Reinhard Zumkeller, Aug 29 2013
(PARI) a(n) = {my(bon = bigomega(n)); my(k = n+1); while (bigomega(k) != bon, k++); k; } \\ Michel Marcus, Jul 21 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Sep 24 2009
EXTENSIONS
Extended by Ray Chandler, Mar 12 2010
STATUS
approved