A072390 Sum of two powers of 13.

2, 14, 26, 170, 182, 338, 2198, 2210, 2366, 4394, 28562, 28574, 28730, 30758, 57122, 371294, 371306, 371462, 373490, 399854, 742586, 4826810, 4826822, 4826978, 4829006, 4855370, 5198102, 9653618, 62748518, 62748530, 62748686, 62750714, 62777078, 63119810

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

Sequence in context: A295083 A180877 A032461 * A213136 A117705 A330789

Adjacent sequences: A072387 A072388 A072389 * A072391 A072392 A072393

Keyword

easy,nonn,tabl

Author

Jeremy Gardiner, Jul 20 2002

Status

approved