Greatest prime dividing the n-th cubefree number: Difference between revisions

m
→‎{{header|Phix}}: swapped n and nth for clarity
m (→‎{{header|Phix}}: extended to 1e11, matching the Pascal output)
m (→‎{{header|Phix}}: swapped n and nth for clarity)
Line 671:
end function
 
function A370833(atom nnth)
if nnth=1 then return {1,1,1} end if
atom nthn = cube_free(nnth)
sequence f = prime_powers(nthn)
return {n,nth,n,f[$][1]}
end function
 
7,803

edits