OFFSET
1,2
LINKS
Donovan Johnson, Table of n, a(n) for n = 1..10000
PrimeFan, Esoteric Integer Sequences
MAPLE
with(numtheory): p:=proc(n) if mobius(n)=sum(mobius(k), k=1..n) then n else fi end: seq(p(n), n=1..700); # Emeric Deutsch, Feb 14 2005
MATHEMATICA
Select[Range[500], Plus @@ MoebiusMu[Range[#]] == MoebiusMu[#] &] (* Carl Najafi, Aug 17 2011 *)
PROG
(PARI) s=0; for(n=1, 1e4, s+=t=moebius(n); if(t==s, print1(n", "))) \\ Charles R Greathouse IV, Jan 28 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Dec 30 2004
EXTENSIONS
More terms from Emeric Deutsch, Feb 14 2005
STATUS
approved