|
%I #9 Dec 06 2023 15:17:37
%S 36,136,236,336,369,436,536,636,736,836,936,1036,1136,1236,1336,1369,
%T 1436,1536,1636,1736,1836,1936,2036,2136,2236,2336,2369,2436,2536,
%U 2636,2736,2836,2936,3036,3136,3236,3336,3369,3436
%N Numbers n such that string 3,6 occurs in the base 10 representation of n but not of n+1.
%t Select[Range[3500],MemberQ[Partition[IntegerDigits[#],2,1],{3,6}] && !MemberQ[Partition[IntegerDigits[#+1],2,1],{3,6}]&] (* _Harvey P. Dale_, Sep 03 2012 *)
%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n],{3,6}]>0,1,0],{n,3500}],{1,0}][[;;,1]] (* _Harvey P. Dale_, Dec 06 2023 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
