The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A094784

(Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A094784

Numbers that are neither squares nor cubes.
(history; published version)

#34 by Hugo Pfoertner at Wed Aug 28 04:20:31 EDT 2024

STATUS

reviewed

approved

#33 by Joerg Arndt at Wed Aug 28 03:53:41 EDT 2024

STATUS

proposed

reviewed

#32 by Joerg Arndt at Wed Aug 28 03:53:38 EDT 2024

STATUS

editing

proposed

#31 by Joerg Arndt at Wed Aug 28 03:53:33 EDT 2024

PROG

(PARI) iscube(n) = { local(r); r = n^(1/3); if(floor(r+.5)^3== n, 1, 0) }

g(n) = for(x=0, n, if(!issquare(x)&&!iscube(x), print1(x", ")))

STATUS

proposed

editing

#30 by Jason Yuen at Wed Aug 28 03:06:14 EDT 2024

STATUS

editing

proposed

#29 by Jason Yuen at Wed Aug 28 03:05:45 EDT 2024

PROG

(PARI) g(n) = for(x=0, n, if(!issquare(x)&&!iscube(x), print1(x", "))) iscube(n) = { local(r); r = n^(1/3); if(floor(r+.5)^3== n, 1, 0) }

g(n) = for(x=0, n, if(!issquare(x)&&!iscube(x), print1(x", ")))

KEYWORD

nonn,easy

STATUS

approved

editing

#28 by Charles R Greathouse IV at Thu Sep 08 08:45:13 EDT 2022

PROG

(MAGMAMagma) [n: n in [0..90] | not IsSquare(n) and not IsPower(n, 3)]; // Bruno Berselli, Feb 22 2016

Discussion

Thu Sep 08

08:45

OEIS Server: https://oeis.org/edit/global/2944

#27 by N. J. A. Sloane at Fri Feb 07 08:18:13 EST 2020

STATUS

proposed

approved

#26 by Jean-François Alcover at Fri Feb 07 07:44:52 EST 2020

STATUS

editing

proposed

#25 by Jean-François Alcover at Fri Feb 07 07:44:47 EST 2020

MATHEMATICA

Select[Range[100], !IntegerQ[#^(1/2)] && !IntegerQ[#^(1/3)]&] (* Jean-François Alcover, Feb 07 2020 *)

STATUS

approved

editing