|
%I #19 Nov 18 2020 06:52:12
%S 1,1,1,1,1,1,1,1,1,1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,
%T 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,
%U 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27
%N a(n) = d^d, where d is the number of digits in n.
%F From _Amiram Eldar_, Nov 18 2020: (Start)
%F a(n) = A055642(n)^A055642(n).
%F Sum_{n>=1} 1/a(n) = A308314. (End)
%t dd[n_]:=Module[{d=IntegerLength[n]},d^d]; Join[{1},Array[dd,150]] (* _Harvey P. Dale_, Mar 16 2013 *)
%o (PARI) a(n) = my(d=#Str(n)); d^d; \\ _Michel Marcus_, Nov 18 2020
%Y Cf. A055642, A138902, A308314.
%K easy,nonn,base
%O 0,11
%A _Odimar Fabeny_, May 16 2008
%E Edited by _N. J. A. Sloane_, Sep 29 2011, at the suggestion of _Franklin T. Adams-Watters_
|
