A219031 - OEIS

%I #11 Jan 29 2014 08:32:42

%S 0,1,4,9,1,6,16,2,5,25,3,6,36,4,9,49,4,6,64,1,8,81,0,1,10,100,1,2,12,

%T 21,121,1,4,14,44,144,1,6,9,16,69,169,1,6,9,19,96,196,2,5,22,25,225,2,

%U 5,6,25,56,256,2,8,9,28,89,289,2,3,4,24,32,324,1,3

%N Table read by rows: n-th row lists all distinct subwords of decimal representation of n-th square.

%C A219032(n) gives number of squares in n-th row.

%H Reinhard Zumkeller, <a href="/A219031/b219031.txt">Rows n=0..1000 of triangle, flattened</a>

%e First 50 rows of triangle:

%e .   0: [0]                      .  25: [2,5,6,25,62,625]

%e .   1: [1]                      .  26: [6,7,67,76,676]

%e .   2: [4]                      .  27: [2,7,9,29,72,729]

%e .   3: [9]                      .  28: [4,7,8,78,84,784]

%e .   4: [1,6,16]                 .  29: [1,4,8,41,84,841]

%e .   5: [2,5,25]                 .  30: [0,9,90,900]

%e .   6: [3,6,36]                 .  31: [1,6,9,61,96,961]

%e .   7: [4,9,49]                 .  32: [0,1,2,4,10,24,102,1024]

%e .   8: [4,6,64]                 .  33: [0,1,8,9,10,89,108,1089]

%e .   9: [1,8,81]                 .  34: [1,5,6,11,15,56,115,156,1156]

%e .  10: [0,1,10,100]             .  35: [1,2,5,12,22,25,122,225,1225]

%e .  11: [1,2,12,21,121]          .  36: [1,2,6,9,12,29,96,129,296,1296]

%e .  12: [1,4,14,44,144]          .  37: [1,3,6,9,13,36,69,136,369,1369]

%e .  13: [1,6,9,16,69,169]        .  38: [1,4,14,44,144,444,1444]

%e .  14: [1,6,9,19,96,196]        .  39: [1,2,5,15,21,52,152,521,1521]

%e .  15: [2,5,22,25,225]          .  40: [0,1,6,16,60,160,600,1600]

%e .  16: [2,5,6,25,56,256]        .  41: [1,6,8,16,68,81,168,681,1681]

%e .  17: [2,8,9,28,89,289]        .  42: [1,4,6,7,17,64,76,176,764,1764]

%e .  18: [2,3,4,24,32,324]        .  43: [1,4,8,9,18,49,84,184,849,1849]

%e .  19: [1,3,6,36,61,361]        .  44: [1,3,6,9,19,36,93,193,936,1936]

%e .  20: [0,4,40,400]             .  45: [0,2,5,20,25,202,2025]

%e .  21: [1,4,41,44,441]          .  46: [1,2,6,11,16,21,116,211,2116]

%e .  22: [4,8,48,84,484]          .  47: [0,2,9,20,22,209,220,2209]

%e .  23: [2,5,9,29,52,529]        .  48: [0,2,3,4,23,30,230,304,2304]

%e .  24: [5,6,7,57,76,576]        .  49: [0,1,2,4,24,40,240,401,2401] .

%o (Haskell)

%o a219031 n k = a219031_tabf !! n !! k

%o a219031_row n = a219031_tabf !! n

%o a219031_tabf = map a218978_row a000290_list

%Y Cf. A218978, A000290.

%K nonn,tabf,base,look

%O 0,3

%A _Reinhard Zumkeller_, Nov 10 2012