# First Maple program to calculate the sequence. A376074:=proc(n) local a,r,V; a:=0; V:=4*n^3; for r to floor(sqrt(V)) do if V mod r^2 = 0 then a:=a+1 fi od; return a end proc; seq(A376074(n),n=1..71); #Second Maple program to calculate the cones (r,h). A376074rh:=proc(n) local L,r,V; L:=[]; V:=4*n^3; for r to floor(sqrt(V)) do if V mod r^2 = 0 then L:=[op(L),[r,V/r^2]] fi od; return op(L) end proc: A376074rh(3)