|
%I #9 Aug 25 2021 05:13:18
%S 34,46,83,95,132,144,181,193,230,244,279,291,328,340,377,389,426,438,
%T 475,487,524,536,573,587,622,634,671,683,720,732,769,781,818,830,867,
%U 879,916,930,965,977,1014,1026,1063,1075,1112
%N Numbers k such that 4 and 6 occur juxtaposed in the base-7 representation of k but not of k+1.
%t Transpose[SequencePosition[Table[If[SequenceCount[IntegerDigits[n,7],{4,6}]>0||SequenceCount[IntegerDigits[n,7],{6,4}]>0,1,0],{n,1200}],{1,0}]][[1]] (* The program uses the SequencePosition and SequenceCount functions from Mathematica version 10 *) (* _Harvey P. Dale_, Nov 29 2015 *)
%Y Cf. A007093.
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
