A182006 Lengths of periods of iterations described in A182005 for terms of A182005.
2, 3, 2, 2, 3, 2, 3, 2, 2, 2, 3, 2, 2, 2, 2, 3, 3, 3, 2, 3, 2, 2, 3, 2, 2, 2, 4, 2, 2, 2, 2, 2, 2, 3, 2, 2, 2, 3, 2, 2, 2, 3, 2, 2, 2, 3, 3, 2, 2, 2, 3, 2, 2, 2, 2, 2, 3, 3, 3, 2, 2, 2, 2, 3, 2, 2, 2, 2, 2, 2, 2, 3, 2, 2, 2, 3, 2, 2, 2, 2, 3, 2, 3, 3, 2, 2, 3, 2, 2, 2, 2, 3, 2, 2, 2, 3, 2, 3
Offset: 1
Crossrefs
Cf. A182005.
Programs
-
Mathematica
period[seq_] := (If[Last[#1] == {} || Length[#1] == Length[seq] -1, 0, Length[#1]]&)[NestWhileList[Rest, Rest[seq], #1 != Take[seq, Length[#1]]&, 1]]; {A182005, A182006} = Transpose[Select[Table[{n, period[Take[Module[{p}, Flatten[{p=Apply[Plus, IntegerDigits[2^#, 3]], Table[p=Apply[Plus, IntegerDigits[2^#+p,3]], {40}]}&[n]]], -20]]}, {n,1,500}], #[[2]] =!= 1&]]
Comments