cp's OEIS Frontend

A139413 Triangle read by rows: row n gives the numbers A010888(n*k) for k = 1..n.

%I A139413 #12 Oct 31 2021 22:57:40
%S A139413 1,2,4,3,6,9,4,8,3,7,5,1,6,2,7,6,3,9,6,3,9,7,5,3,1,8,6,4,8,7,6,5,4,3,
%T A139413 2,1,9,9,9,9,9,9,9,9,9,1,2,3,4,5,6,7,8,9,1,2,4,6,8,1,3,5,7,9,2,4,3,6,
%U A139413 9,3,6,9,3,6,9,3,6,9,4
%N A139413 Triangle read by rows: row n gives the numbers A010888(n*k) for k = 1..n.
%H A139413 Nathaniel Johnston, <a href="/A139413/b139413.txt">Table of n, a(n) for n = 1..10000</a>
%e A139413 Triangle begins:
%e A139413 1
%e A139413 2 4
%e A139413 3 6 9
%e A139413 4 8 3 7
%e A139413 5 1 6 2 7
%e A139413 6 3 9 6 3 9
%e A139413 7 5 3 1 8 6 4
%e A139413 8 7 6 5 4 3 2 1
%e A139413 9 9 9 9 9 9 9 9 9
%e A139413 ...
%p A139413 A010888:=proc(n) return ((n-1) mod 9)+1; end:
%p A139413 for n from 1 to 9 do for k from 1 to n do printf("%d ",A010888(n*k)); od: printf("\n"): od: # _Nathaniel Johnston_, Apr 21 2011
%t A139413 Table[FixedPoint[Total@ IntegerDigits[#] &, n k], {n, 13}, {k, n}] // Flatten (* _Michael De Vlieger_, Oct 31 2021 *)
%Y A139413 Cf. A007953 (column 1), A180592 - A180599 (columns 2 - 9), A010888, A038194.
%K A139413 easy,nonn,tabl,base
%O A139413 1,2
%A A139413 Philippe Lallouet (philip.lallouet(AT)orange.fr), Apr 19 2008
%E A139413 More terms and several terms corrected by _Nathaniel Johnston_, Apr 21 2011