|
%I #7 Feb 04 2015 21:12:43
%S 49,130,211,292,373,441,454,535,616,697,778,859,940,1021,1102,1170,
%T 1183,1264,1345,1426,1507,1588,1669,1750,1831,1899,1912,1993,2074,
%U 2155,2236,2317,2398,2479,2560,2628,2641,2722,2803
%N Numbers n such that string 5,4 occurs in the base 9 representation of n but not of n-1.
%t Flatten[Position[Partition[Table[If[MemberQ[Partition[ IntegerDigits[ n,9],2,1],{5,4}],1,0],{n,3000}],2,1],{0,1}]]+1 (* _Harvey P. Dale_, Feb 04 2015 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
