A307861 Numbers that set records on longest chains of "Chained Divisors" of A306661 and A307858.
1, 11, 121, 1111, 12221, 134431, 1234321, 1478741, 1600951, 17610461, 161696051, 193715071, 1634570971
Offset: 1
Programs
-
PARI
{ mx=0; for (n=1, oo, if (#(d=divisors(n))>mx, ok=1; d=apply(digits,d); for (i=1, #d-1, if (d[i][#d[i]]!=d[i+1][1], ok=0; break)); if (ok, print1 (n ", "); mx=#d))) } \\ Rémy Sigrist, May 06 2019
Extensions
a(11)-a(13) from Rémy Sigrist, May 06 2019
Comments