This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A061860 #12 Dec 13 2017 00:17:08
%S A061860 1,2,4,11,28,152,726,5268,40438,365944,3628810,39974466,479001612,
%T A061860 6228256404,87178339984,1307706805928,20922789888016,355688409760972,
%U A061860 6402373705728018,121645133931170028,2432902008232456692
%N A061860 Variant of A061417.
%C A061860 Does this count some variety of necklaces?
%H A061860 G. C. Greubel, <a href="/A061860/b061860.txt">Table of n, a(n) for n = 0..445</a>
%F A061860 a(n) = (1/n)*Sum_{d|n} phi(n/d)*C(n, d)*(d!).
%p A061860 [seq(A061860(j),j=1..40)]; with(numtheory); A061860 := proc(n) local d,s; s := 0; for d in divisors(n) do s := s + phi(n/d)*(binomial(n,d))*(d!); od; RETURN(s/n); end;
%t A061860 a[n_] := DivisorSum[n, EulerPhi[n/#] Binomial[n, #] (#!)&]/n; Array[a, 25] (* _Jean-François Alcover_, Mar 06 2016 *)
%Y A061860 A061860[p] = A061417[p] = (p-1)!+(p-1) for all prime p's.
%K A061860 nonn
%O A061860 0,2
%A A061860 _Antti Karttunen_, May 11 2001