A044622 - OEIS

%I #8 Nov 21 2013 12:47:03

%S 54,118,182,246,310,374,439,502,566,630,694,758,822,886,951,1014,1078,

%T 1142,1206,1270,1334,1398,1463,1526,1590,1654,1718,1782,1846,1910,

%U 1975,2038,2102,2166,2230,2294,2358,2422,2487,2550

%N Numbers n such that string 6,6 occurs in the base 8 representation of n but not of n+1.

%t Select[Range[2700],MemberQ[Partition[IntegerDigits[#,8],2,1],{6,6}] && !MemberQ[Partition[IntegerDigits[#+1,8],2,1],{6,6}]&] (* _Harvey P. Dale_, Aug 10 2011 *)

%K nonn,base

%O 1,1

%A _Clark Kimberling_