A069031 Powers of 6 with strictly increasing sum of digits.
1, 6, 36, 1296, 7776, 279936, 362797056, 78364164096, 470184984576, 16926659444736, 21936950640377856, 4738381338321616896, 170581728179578208256, 36845653286788892983296, 2227915756473955677973140996096, 13367494538843734067838845976576
Offset: 1
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..51
Programs
-
Mathematica
DeleteDuplicates[Table[{6^n,Total[IntegerDigits[6^n]]},{n,0,40}],GreaterEqual[ #1[[2]],#2[[2]]]&][[All,1]] (* Harvey P. Dale, Jan 12 2023 *)
Extensions
More terms from Larry Reeves (larryr(AT)acm.org), Jun 26 2002
More terms from Sean A. Irvine, Mar 29 2024