|
%I #12 Aug 27 2021 11:02:16
%S 70,107,170,207,270,307,370,407,470,507,570,607,670,709,770,807,870,
%T 907,970,1007,1079,1107,1170,1207,1270,1307,1370,1407,1470,1507,1570,
%U 1607,1670,1709,1770,1807,1870,1907,1970,2007,2079
%N Numbers k such that 0 and 7 occur juxtaposed in the base-10 representation of k but not of k+1.
%H Michael De Vlieger, <a href="/A044002/b044002.txt">Table of n, a(n) for n = 1..10000</a>
%t With[{j = 0, k = 7}, Position[Partition[Array[Boole[Total@ {SequenceCount[#, {j, k}], SequenceCount[#, {k, j}]} > 0] &@ IntegerDigits[#] &, 2100], 2, 1], {1, 0}][[All, 1]]] (* _Michael De Vlieger_, Aug 27 2021 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
