A105164 Triangle read by rows, based on the morphism f: 1->2, 2->3, 3->4, 4->5, 5->{5,9,7,6}, 6->7, 7->8, 8->9, 9->10, 10->{10,4,2,1}. First row is 1. If current row is a,b,c,..., then the next row is a,b,c,...,f(a),f(b),f(c),...
1, 1, 2, 1, 2, 2, 3, 1, 2, 2, 3, 2, 3, 3, 4, 1, 2, 2, 3, 2, 3, 3, 4, 2, 3, 3, 4, 3, 4, 4, 5, 1, 2, 2, 3, 2, 3, 3, 4, 2, 3, 3, 4, 3, 4, 4, 5, 2, 3, 3, 4, 3, 4, 4, 5, 3, 4, 4, 5, 4, 5, 5, 5, 9, 7, 6, 1, 2, 2, 3, 2, 3, 3, 4, 2, 3, 3, 4, 3, 4, 4, 5, 2, 3, 3, 4, 3, 4, 4, 5, 3, 4, 4, 5, 4, 5, 5, 5, 9, 7, 6, 2, 3, 3, 4
Offset: 0
Programs
-
Mathematica
s[n_] := n /. {1 -> 2, 2 -> 3, 3 -> 4, 4 -> 5, 5 -> {5, 9, 7, 6}, 6 -> 7, 7 -> 8, 8 -> 9, 9 -> 10, 10 -> {10, 4, 2, 1}}; t[a_] := Join[a, Flatten[s /@ a]]; Flatten[ NestList[t, {1}, 6]]
Extensions
Edited by N. J. A. Sloane, Jun 16 2007
Comments