%I #6 Oct 29 2024 23:23:59
%S 1,10,10,10,10,10,10,10,10,0,11111111111,1100,111,32,30,24,23,22,21,0,
%T 111111111111111111111,10110,212,120,100,42,36,34,32,0,
%U 1111111111111111111111111111111,100000,1020,202,120,100,52,46,43,0
%N a(n) is n written in base n mod 10, or 0 if n mod 10 = 0.
%e In base 1, n =11...11=n written n times; in base 0 baseform is taken as 0.
%t Table[BaseForm[w, Mod[w, 10]], {w, 1, 128}]
%Y Cf. A008713, A072804-A072807.
%K base,nonn
%O 1,2
%A _Labos Elemer_, Jul 12 2002