A104050 - OEIS

%I #7 Sep 08 2013 11:38:07

%S 2,4,104,118,4058,140816,4583282,143279864,863481484,4356837578,

%T 84349156318,129841645856,3803306126836,3810900219362,140836238080822,

%U 4756252744588444,152260682014044238,4707084862133100676

%N Values of 3^n - 5^m where n and m are positive integers such that 1 < 3^n/5^m < 2.

%t c = Delete[Union[Flatten[Table[Table[If [ (3^n > 5^m) && Floor[3^n/5^m] < 2, Abs[3^n - 5^m], 0], {m, 1, n}], {n, 1, 200}], 1]], 1]

%K nonn

%O 1,1

%A _Roger L. Bagula_, Mar 01 2005

%E Definition rewritten to match the sequence, offset corrected, and formula deleted by _Jon E. Schoenfield_, Sep 07 2013