OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
seq[max_] := Flatten @ Position[Accumulate @ Array[Boole @ SquareFreeQ[#] &, max] - Floor[6*Range[max]/Pi^2], 0]; seq[1000] (* Amiram Eldar, Feb 17 2021 *)
PROG
(PARI) isok(k) = sum(j=1, k, moebius(j)^2) == 6*k\Pi^2; \\ Michel Marcus, Feb 15 2021
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Benoit Cloitre, Mar 26 2002
STATUS
approved