%I #7 Sep 06 2023 10:40:09
%S 1,2,3,4,5,6,12,13,20,28,35,36,42,43,44,84,85,91,92,93,140,141,142,
%T 200,201,202,249,250,251,257,258,298,299,300,306,307,314,592,593,594,
%U 600,601,641,642,643,649,650,657,984,985,986,992
%N If d,e are consecutive digits of n in base 7, then |d-e|>=4.
%t Select[Range[1000],Min[Abs[Differences[IntegerDigits[#,7]]]]>3&] (* _Harvey P. Dale_, Sep 06 2023 *)
%K nonn,base
%O 1,2
%A _Clark Kimberling_
|