OFFSET
1,1
LINKS
David A. Corneth, Table of n, a(n) for n = 1..10011
Sean A. Irvine, Java program (github)
EXAMPLE
2;
6, 10;
30, 42, 60;
210, 330, 390, 420;
...
MATHEMATICA
f[n_] := Flatten[Table[ # [[1]]] & /@ FactorInteger[n]]; (* for n=7 *) Take[ Select[ Range[10^7], Length[f[ # ]] == 7 & ], 7]
Module[{nn=8, dpf=Table[{n, PrimeNu[n]}, {n, 2 10^7}]}, Flatten[Table[Select[dpf, #[[2]]==n&, n], {n, nn}], 1][[All, 1]]] (* The program generates the first 36 terms of the sequence. *) (* Harvey P. Dale, Sep 09 2022 *)
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Amarnath Murthy, Aug 20 2002
EXTENSIONS
Edited, corrected and extended by Robert G. Wilson v, Aug 22 2002
More terms from David A. Corneth, Jan 09 2021
STATUS
approved