|
%I
%S 15,28,40,53,65,75,90,103,115,128,140,153,165,178,190,200,215,228,240,
%T 253,265,278,290,303,315,325,340,353,365,375,403,415,428,440,450,465,
%U 478,490,503,515,528,540,553,565,575,590,603
%N Numbers k such that 0 and 3 occur juxtaposed in the base-5 representation of k but not of k-1.
%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n,5],{0,3}]>0|| SequenceCount[ IntegerDigits[n,5],{3,0}]>0,1,0],{n,700}],{0,1}][[All,2]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Feb 21 2021 *)
%Y Cf. A007091.
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
