A268312 First number of the periodic part of the "Say what you see" trajectory (see A005151) of n.
1031223314, 21322314, 21322314, 21322314, 21322314, 3122331415, 3122331416, 3122331417, 3122331418, 3122331419, 1031223314, 21322314, 21322314, 21322314, 21322314, 3122331415, 3122331416, 3122331417, 3122331418, 3122331419, 10311233, 21322314, 22, 21322314, 31123314, 31123315
Offset: 0
Examples
Consider the starting value n = 5. We see one five: 15. We have one one and one five: 1115. We have three ones and one five: 3115... We reach 3122331415 which produces itself. So a(5) = 3122331415.
Links
- Julien Kluge, Table of n, a(n) for n = 0..10000
Programs
-
Mathematica
a005151[n_, m_] := FromDigits[ Reverse /@ Sort[Tally[ If[n == 2, m, a005151[n - 1, m]] // IntegerDigits], #1[[1]] < #2[[1]] &] // Flatten]; a[n_] := Block[{previousNum = 0, currentNum = 1, knownNums = {n}}, For[i = 2, currentNum != previousNum, ++i, previousNum = currentNum; currentNum = a005151[i, n]; If[MemberQ[knownNums, currentNum], Return[currentNum], AppendTo[knownNums, currentNum]]; ]; Return[currentNum]; ] a /@ Range[0, 100]
Comments