OFFSET
1,1
FORMULA
a(n) = n*prime(n)*composite(n).
a(n) = n*A067563(n).
EXAMPLE
For n=1; prime(1)=2, composite(1)=4; a(1) = 8;
For n=2; prime(2)=3, composite(2)=6; a(2) = 36;
For n=3; prime(3)=5, composite(3)=8; a(3) = 120.
MATHEMATICA
m = 105; p = Select[Range[m], PrimeQ]; n = Length[p]; c = Complement[Range[2, m], p][[1;; n]]; p * c * Range[n] (* Amiram Eldar, Feb 12 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Soham B. Patel, Feb 04 2020
STATUS
approved