%I #8 Nov 18 2018 01:16:28
%S 1,2,8,42,312,3110,39216,599186,10761680,222222222,5187484920,
%T 135092431034,3883014187080,122109965116022,4170418003627232,
%U 153722867280912930,6082648984458358560,257166065851611356702
%N a(1)=1, a(n) = 2*(n^(n-1)-1)/(n-1) for n >= 2.
%C Proposition: n^(n-1) - 1 == 0 (mod (n-1)^2). Hence a(n) == 0 mod (n-1).
%C a(n) is the common difference of the arithmetic progression in row n of A111568. Written in base n, a(n) has n-1 digits equal to 2 (for example, a(10)=222222222). - _Emeric Deutsch_, Aug 08 2005
%F a(1) = 1, a(n) = 2*(n^(n-1) - 1)/(n-1) for n > 1.
%p a:=proc(n) if n=1 then 1 else 2*(n^(n-1)-1)/(n-1) fi end: seq(a(n),n=1..20); # _Emeric Deutsch_, Aug 08 2005
%t f[n_] := (2*n^(n-1) - 2)/(n-1); Table[f[i], {i, 2, 30}] (* _Ryan Propper_, Aug 08 2005 *)
%Y Cf. A093460, A093462.
%Y Cf. A111568.
%K nonn
%O 1,2
%A _Amarnath Murthy_, Apr 05 2004
%E More terms from _Emeric Deutsch_ and _Ryan Propper_, Aug 08 2005
|