cp's OEIS Frontend

A067177 Cube root of A061096(n).

%I A067177 #9 Aug 28 2018 11:45:22
%S A067177 1,2,3,4,14,9,13,26,27,19,53,66,76,92,132,157,353,423,559,842,927,
%T A067177 1192,2129,3846,1966,4289,5826,8782,12116,16299,19129,12599,41013,
%U A067177 30355,63413,66942
%N A067177 Cube root of A061096(n).
%H A067177 R. J. Mathar, <a href="/A067177/b067177.txt">Table of n, a(n) for n = 0..51</a>
%p A067177 read("transforms"):
%p A067177 A067177 := proc(n)
%p A067177     local ds,k ;
%p A067177     ds := A054966(2+n) ;
%p A067177     for k from 0 do
%p A067177         if digsum(k^3) = ds then
%p A067177             return k;
%p A067177         end if;
%p A067177     end do:
%p A067177 end proc: # _R. J. Mathar_, Aug 28 2018
%Y A067177 Cf. A061096, A054966.
%K A067177 easy,nonn
%O A067177 0,2
%A A067177 _Amarnath Murthy_, Jan 09 2002
%E A067177 More terms from _Sascha Kurz_, Jan 28 2003