OFFSET
1,3
COMMENTS
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..10123 (first 68 rows)
FORMULA
MATHEMATICA
Table[Range[Prime[n] - 1], {n, 9}] // Flatten (* or, per title definition: *)
#/Times @@ (FactorInteger[#][[All, 1]]) & /@ Flatten@ Table[Range[Prime[n + 1] - 1] Apply[Times, Prime@ Range@ n], {n, 0, 8}] (* Michael De Vlieger, Jul 26 2016 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Matthew Vandermast, Nov 23 2009
STATUS
approved