OFFSET
0,1
LINKS
T. D. Noe, Rows n = 0..100 of triangle, flattened
Michael Penn, Fives and squares., YouTube video, 2021.
FORMULA
MATHEMATICA
t = 5^Range[0, 9]; Select[Union[Flatten[Table[i + j, {i, t}, {j, t}]]], # <= t[[-1]] + 1 &] (* T. D. Noe, Oct 09 2011 *)
Total/@Tuples[5^Range[0, 9], 2]//Union (* Harvey P. Dale, Jan 29 2017 *)
PROG
(Python)
from math import isqrt
def A055237(n): return 5**(a:=(k:=isqrt(m:=n<<1))+(m>k*(k+1))-1)+5**(n-1-(a*(a+1)>>1)) # Chai Wah Wu, Apr 08 2025
CROSSREFS
KEYWORD
AUTHOR
Henry Bottomley, Jun 22 2000
STATUS
approved
