|
%I #6 Jul 19 2023 20:29:56
%S 1,22,112,211,333,1113,1221,3111,4444,11114,13331,22122,22233,33222,
%T 41111,55555,111115,111223,112112,113332,144441,211211,222133,222244,
%U 233311,322111,331222,442222,511111,666666,1111116,1111224,1112113
%N LookAndSay(n) is palindromic.
%e LookAndSay(112) = 2112 ( two 1's, one 2), a palindrome, so 22 belongs to the sequence.
%t RunLengthEncode[x_List] := (Through[{First, Length}[ #1 ]] &) /@ Split[x]; Do[a = Flatten[ RunLengthEncode[ IntegerDigits[n]]]; If[a == Reverse[a], Print[n]], {n, 1, 10^6}]
%Y Different from A079466.
%K base,nonn
%O 1,2
%A _Joseph L. Pe_, Jan 26 2003
%E More terms from _Robert G. Wilson v_, Jan 27 2003
|
