OFFSET
1,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..1000
Juggling Information Service, Site Swap FAQs
MAPLE
[seq(DistSS(p, 4), p=1..60)];
A065180 := proc(n)
add( mobius(n/d)*(5^d-4^d), d=numtheory[divisors](n)) /n ;
end proc:
seq(A065180(n), n=1..30) ; # R. J. Mathar, Aug 05 2015
MATHEMATICA
a[n_] := DivisorSum[n, MoebiusMu[n/#]*(5^# - 4^#)&]/n; Array[a, 25] (* Jean-François Alcover, Mar 06 2016 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Oct 19 2001
STATUS
approved