A165338 Duplicate of A154877.
16, 22, 61, 79, 97, 106, 115, 127, 151, 160, 172, 202, 217, 220
Offset: 1
This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
Taking 40 for example, 4^3 + 0^3 = 64; 6^3 + 4^3 = 280; 2^3 + 8^3 + 0^3 = 520; 5^3 + 2^3 + 0^3 = 133; 1^3 + 3^3 + 3^3 = 55; 5^3 + 5^3 = 250.
A055012 := proc(n) local a,d ; a := 0 ; for d in convert(n,base,10) do a := a+d^3; od; a ; end: isA154820 := proc(n) local traj,t ; t := n ; traj := {} ; while true do if t in traj then if t in {133,55,250} then RETURN(true) ; else RETURN(false) ; fi; else traj := traj union {t} ; t := A055012(t) ; fi; od: end: for n from 1 to 1000 do if isA154820(n) then printf("%d,",n) ; fi; od: # R. J. Mathar, Jan 18 2009
a(1)=49: 49 -> 4^3+9^3=793 -> 7^3+9^3+3^3=1099 -> 1+0+2*9^3=1459 -> 919 -> 1459 ... .
Comments