|
%I #11 Aug 28 2021 02:51:21
%S 15,51,115,159,215,251,315,351,415,451,519,551,615,651,715,751,815,
%T 851,915,951,1015,1051,1115,1159,1215,1251,1315,1351,1415,1451,1599,
%U 1615,1651,1715,1751,1815,1851,1915,1951,2015,2051
%N Numbers k such that 1 and 5 occur juxtaposed in the base-10 representation of k but not of k+1.
%H Michael De Vlieger, <a href="/A044008/b044008.txt">Table of n, a(n) for n = 1..10000</a>
%t With[{j = 1, k = 5}, SequencePosition[Table[If[SequenceCount[IntegerDigits[n], {j, k}] > 0 || SequenceCount[IntegerDigits[n], {k, j}] > 0, 1, 0], {n, 2100}], {1, 0}][[All, 1]]] (* _Michael De Vlieger_, Aug 27 2021 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
