%I #14 Feb 14 2021 12:50:14

%S 2,14,26,170,182,338,2198,2210,2366,4394,28562,28574,28730,30758,

%T 57122,371294,371306,371462,373490,399854,742586,4826810,4826822,

%U 4826978,4829006,4855370,5198102,9653618,62748518,62748530,62748686,62750714,62777078,63119810

%N Sum of two powers of 13.

%H T. D. Noe, <a href="/A072390/b072390.txt">Rows n = 0..100 of triangle, flattened</a>

%F 13^n + 13^m, n = 0, 1, 2, 3 ..., m = 0, 1, 2, 3, ... n.

%t Union[Total/@Tuples[13^Range[0,9], 2]] (* _Harvey P. Dale_, Sep 15 2011 *)

%t Flatten[Table[Table[13^n + 13^m, {m, 0, n}], {n, 0, 10}]] (* _T. D. Noe_, Jun 18 2013 *)

%o (Python)

%o def aupto(lim):

%o pows, p = [], 1

%o while p < lim: pows.append(p); p *= 13

%o return sorted([a+b for a in pows for b in pows if b >= a and a+b <= lim])

%o print(aupto(63119810)) # _Michael S. Branicky_, Feb 14 2021

%K easy,nonn,tabl

%O 0,1

%A _Jeremy Gardiner_, Jul 20 2002