login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A097449 If n is a cube, replace it with the cube root of n. 1

%I #13 Apr 05 2021 20:42:14

%S 0,1,2,3,4,5,6,7,2,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,

%T 26,3,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,

%U 49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,4,65,66,67,68,69,70,71,72,73,74

%N If n is a cube, replace it with the cube root of n.

%e The 9th integer is 8 so a(9) = 8^(1/3) = 2.

%t rcr[n_]:=Module[{crn=Power[n, (3)^-1]},If[IntegerQ[crn],crn,n]]; Array[ rcr,80,0] (* _Harvey P. Dale_, Jan 28 2012 *)

%o (PARI) replcube(n) = { for(x=0,n, if(iscube(x),y=x^(1/3),y=x); print1(floor(y)",")) } iscube(n) = { local(r); r = n^(1/3); if(floor(r+.5)^3== n,1,0) }

%o (PARI) a(n)=ispower(n,3,&n);n \\ _Charles R Greathouse IV_, Oct 27 2011

%K nonn,easy

%O 0,3

%A _Cino Hilliard_, Aug 23 2004

%E Corrected by _T. D. Noe_, Oct 25 2006

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 29 10:22 EDT 2024. Contains 371268 sequences. (Running on oeis4.)