|
%I #9 Dec 21 2014 18:17:11
%S 49,149,249,349,449,499,549,649,749,849,949,1049,1149,1249,1349,1449,
%T 1499,1549,1649,1749,1849,1949,2049,2149,2249,2349,2449,2499,2549,
%U 2649,2749,2849,2949,3049,3149,3249,3349,3449,3499
%N Numbers n such that string 4,9 occurs in the base 10 representation of n but not of n+1.
%H Harvey P. Dale, <a href="/A044762/b044762.txt">Table of n, a(n) for n = 1..1000</a>
%t Flatten[Position[Partition[Boole[MemberQ[Partition[IntegerDigits[#],2,1],{4,9}]]&/@Range[3500],2,1],{1,0}]] (* _Harvey P. Dale_, Dec 21 2014 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
