|
%I #13 Aug 25 2021 04:55:28
%S 17,32,53,68,89,107,125,140,161,176,197,212,233,248,269,284,305,323,
%T 341,356,377,392,413,428,449,464,485,500,521,539,557,572,593,608,647,
%U 665,680,701,716,737,755,773,788,809,824,845,860
%N Numbers k such that 2 and 5 occur juxtaposed in the base-6 representation of k but not of k+1.
%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n,6],{2,5}]>0 || SequenceCount[ IntegerDigits[n,6],{5,2}]>0,1,0],{n,900}],{1,0}][[All,1]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Sep 23 2019 *)
%Y Cf. A007092.
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
