%I #13 Aug 25 2021 04:54:07
%S 14,22,39,47,64,74,89,97,114,122,139,147,164,172,189,199,214,222,239,
%T 247,264,272,289,297,314,324,339,347,374,389,397,414,422,439,449,464,
%U 472,489,497,514,522,539,547,574,589,597,614
%N Numbers k such that 2 and 4 occur juxtaposed in the base-5 representation of k but not of k+1.
%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n,5],{2,4}]>0 || SequenceCount[IntegerDigits[n,5],{4,2}]>0,1,0],{n,700}],{1,0}][[All,1]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Apr 21 2019 *)
%Y Cf. A007091.
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|