OFFSET
0,1
LINKS
T. D. Noe, Rows n = 0..100 of triangle, flattened
FORMULA
13^n + 13^m, n = 0, 1, 2, 3 ..., m = 0, 1, 2, 3, ... n.
MATHEMATICA
Union[Total/@Tuples[13^Range[0, 9], 2]] (* Harvey P. Dale, Sep 15 2011 *)
Flatten[Table[Table[13^n + 13^m, {m, 0, n}], {n, 0, 10}]] (* T. D. Noe, Jun 18 2013 *)
PROG
(Python)
def aupto(lim):
pows, p = [], 1
while p < lim: pows.append(p); p *= 13
return sorted([a+b for a in pows for b in pows if b >= a and a+b <= lim])
print(aupto(63119810)) # Michael S. Branicky, Feb 14 2021
CROSSREFS
KEYWORD
AUTHOR
Jeremy Gardiner, Jul 20 2002
STATUS
approved