(40G) OEIS A027423: Number of Divisors of N!

+- HP Forums (http://www.hpmuseum.org/forum)
+-- Forum: HP Software Libraries (/forum-10.html)
+--- Forum: General Software Library (/forum-13.html)
+--- Thread: (40G) OEIS A027423: Number of Divisors of N! (/thread-9204.html)

(40G) OEIS A027423: Number of Divisors of N! - Gerald H - 10-04-2017 12:46 PM

For last natural number input N to the Home screen the programme returns the Nth element of the series

https://oeis.org/A027423

Code:
IF Ans<2
 THEN
 1:
 ELSE
 Ans►N:
 1►M:
 2►P:
 DO
 0►S:
 N►T:
 DO 
 IQUOT(T,P)►T:
 T+S►S:
 UNTIL
 NOT T
 END:
 NEXTPRIME(P)►P:
 (S+1)*M►M:
 UNTIL
 N<P
 END:
 END: