A044247 - OEIS

%I #12 Aug 18 2015 15:35:54

%S 60,124,188,252,316,380,444,480,508,572,636,700,764,828,892,956,992,

%T 1020,1084,1148,1212,1276,1340,1404,1468,1504,1532,1596,1660,1724,

%U 1788,1852,1916,1980,2016,2044,2108,2172,2236,2300,2364,2428,2492,2528,2556

%N Numbers n such that string 7,4 occurs in the base 8 representation of n but not of n-1.

%H Matthew House, <a href="/A044247/b044247.txt">Table of n, a(n) for n = 1..10000</a>

%t Flatten[Position[Partition[Table[If[MemberQ[Partition[IntegerDigits[n, 8], 2, 1], {7, 4}], 1, 0], {n, 4000}], 2, 1], {0, 1}]] + 1 (* _Vincenzo Librandi_, Aug 18 2015 *)

%K nonn,base

%O 1,1

%A _Clark Kimberling_