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

2, 4, 104, 118, 4058, 140816, 4583282, 143279864, 863481484, 4356837578, 84349156318, 129841645856, 3803306126836, 3810900219362, 140836238080822, 4756252744588444, 152260682014044238, 4707084862133100676

Offset

1,1

Links

Table of n, a(n) for n=1..18.

Mathematica

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]

Crossrefs

Sequence in context: A018435 A166094 A018440 * A000965 A266176 A018449

Adjacent sequences: A104047 A104048 A104049 * A104051 A104052 A104053

Keyword

nonn

Author

Roger L. Bagula, Mar 01 2005

Extensions

Definition rewritten to match the sequence, offset corrected, and formula deleted by Jon E. Schoenfield, Sep 07 2013

Status

approved