OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
FORMULA
MATHEMATICA
Table[n*(n - 1), {n, Select[Range[150], MoebiusMu[#] == 1 &]}]
PROG
(PARI) lista(kmax) = forsquarefree(k=1, kmax, if(moebius(k) == 1, print1(k[1]*(k[1]-1), ", ")));
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Amiram Eldar, Feb 20 2024
STATUS
approved