|
%I #10 Aug 24 2021 17:42:59
%S 22,47,72,97,114,122,147,172,197,222,239,247,272,297,322,347,364,372,
%T 397,422,447,472,489,497,522,547,574,597,614,622,647,672,697,722,739,
%U 747,772,797,822,847,864,872,897,922,947,972
%N Numbers n such that string 4,2 occurs in the base 5 representation of n but not of n+1.
%t Select[Range[1000],MemberQ[Partition[IntegerDigits[#,5],2,1], {4,2}]&&!MemberQ[Partition[IntegerDigits[#+1,5],2,1], {4,2}]&] (* _Harvey P. Dale_, Mar 13 2011 *)
%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n,5],{4,2}]>0,1,0],{n,1000}],{1,0}][[All,1]] (* _Harvey P. Dale_, Aug 24 2021 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
