OFFSET
1,12
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
The strictly inferior prime-power divisors of n!:
n = 1 2 6 24 120 720 5040 40320
----------------------------------
. . 2 2 2 2 2 2
3 3 3 3 3
4 4 4 4 4
5 5 5 5
8 8 7 7
9 8 8
16 9 9
16 16
32
64
128
MATHEMATICA
Table[Length[Select[Divisors[n], PrimePowerQ[#]&&#<n/#&]], {n, 100}]
PROG
(PARI) a(n) = sumdiv(n, d, d^2 < n && isprimepower(d)); \\ Amiram Eldar, Nov 01 2024
CROSSREFS
Positions of zeros are A166684.
The weakly inferior version is A333750.
The version for odd instead of prime-power divisors is A333805.
The version for prime instead of prime-power divisors is A333806.
The weakly superior version is A341593.
The version for squarefree instead of prime-power divisors is A341596.
The strictly superior version is A341644.
A000961 lists prime powers.
A001222 counts prime-power divisors.
A005117 lists squarefree numbers.
A038548 counts superior (or inferior) divisors.
A056924 counts strictly superior (or strictly inferior) divisors.
A207375 lists central divisors.
- Superior: A033677, A051283, A059172, A063538, A063539, A070038, A116882, A116883, A161908, A341591, A341592, A341676.
KEYWORD
nonn
AUTHOR
Gus Wiseman, Feb 23 2021
STATUS
approved