login
Irregular table T(n, k), n > 0, k = 1..A368195(n), read by rows: the n-th row lists the numbers that can be obtained by replacing any positive number without leading zeros, say m, appearing in the decimal expansion of n by one of the divisors of m.
4

%I #13 Dec 22 2023 11:39:30

%S 1,1,2,1,3,1,2,4,1,5,1,2,3,6,1,7,1,2,4,8,1,3,9,1,2,5,10,1,11,1,2,3,4,

%T 6,11,12,1,11,13,1,2,7,11,12,14,1,3,5,11,15,1,2,4,8,11,12,13,16,1,11,

%U 17,1,2,3,6,9,11,12,14,18,1,11,13,19,1,2,4,5,10,20

%N Irregular table T(n, k), n > 0, k = 1..A368195(n), read by rows: the n-th row lists the numbers that can be obtained by replacing any positive number without leading zeros, say m, appearing in the decimal expansion of n by one of the divisors of m.

%C The n-th row starts with 1, ends with n, and contains the divisors of n (A027750).

%H Rémy Sigrist, <a href="/A368194/b368194.txt">Table of n, a(n) for n = 1..16938</a> (rows for n = 1..1000 flattened)

%H Rémy Sigrist, <a href="/A368194/a368194.gp.txt">PARI program</a>

%H <a href="/index/De#decimal_expansion">Index entries for sequences related to decimal expansion of n</a>

%F T(n, 1) = 1.

%F T(n, A368195(n)) = n.

%e Table T(n, k) begins:

%e 1;

%e 1, 2;

%e 1, 3;

%e 1, 2, 4;

%e 1, 5;

%e 1, 2, 3, 6;

%e 1, 7;

%e 1, 2, 4, 8;

%e 1, 3, 9;

%e 1, 2, 5, 10;

%e 1, 11;

%e 1, 2, 3, 4, 6, 11, 12;

%e 1, 11, 13;

%e 1, 2, 7, 11, 12, 14;

%e 1, 3, 5, 11, 15;

%e 1, 2, 4, 8, 11, 12, 13, 16;

%e 1, 11, 17;

%e 1, 2, 3, 6, 9, 11, 12, 14, 18;

%e ...

%o (PARI) See Links section.

%Y Cf. A027750, A323286, A342072, A368195, A368313 (binary variant).

%K nonn,base,tabf

%O 1,3

%A _Rémy Sigrist_, Dec 16 2023