|
%I #7 Oct 02 2022 18:07:57
%S 1,2,3,4,5,6,7,8,9,10,16,17,18,19,20,21,28,29,30,31,32,40,41,42,43,44,
%T 52,53,54,55,56,64,65,66,67,68,76,77,78,79,80,88,89,90,91,92,99,100,
%U 101,102,103,104,110,111,112,113,114,115,116
%N If d,e are consecutive digits of n in base 11, then |d-e|>=4.
%t Join[Range[10],Select[Range[11,120],Abs[Differences[IntegerDigits[#,11]]][[1]]>3&]] (* _Harvey P. Dale_, Oct 02 2022 *)
%K nonn,base
%O 1,2
%A _Clark Kimberling_
|
