%I #13 May 30 2023 18:34:23
%S 9,21,34,49,59,71,84,96,109,121,134,146,159,174,184,196,209,221,249,
%T 259,271,284,299,309,321,334,346,359,371,384,396,409,424,434,446,459,
%U 471,484,496,509,521,549,559,571,584,596,609,621
%N Numbers k such that 1 and 4 occur juxtaposed in the base-5 representation of k but not of k+1.
%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n,5],{1,4}]>0||SequenceCount[ IntegerDigits[ n,5],{4,1}]>0,1,0],{n,700}],{1,0}][[;;,1]] (* _Harvey P. Dale_, May 30 2023 *)
%Y Cf. A007091.
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|