OFFSET
1,2
COMMENTS
EXAMPLE
The terms together with their prime indices begin:
1: {}
2: {1}
12: {1,1,2}
36: {1,1,2,2}
40: {1,1,1,3}
112: {1,1,1,1,4}
352: {1,1,1,1,1,5}
832: {1,1,1,1,1,1,6}
960: {1,1,1,1,1,1,2,3}
1296: {1,1,1,1,2,2,2,2}
2176: {1,1,1,1,1,1,1,7}
2880: {1,1,1,1,1,1,2,2,3}
4864: {1,1,1,1,1,1,1,1,8}
5376: {1,1,1,1,1,1,1,1,2,4}
MATHEMATICA
Select[Range[1000], Times@@Cases[If[#==1, {}, FactorInteger[#]], {p_, k_}:>PrimePi[p]^k]==Times@@Last/@FactorInteger[#]&]
PROG
(Python)
from itertools import count, islice
from math import prod
from sympy import primepi, factorint
def A353503_gen(startvalue=1): # generator of terms >= startvalue
return filter(lambda n: n == 1 or prod((f:=factorint(n)).values()) == prod(primepi(p)**e for p, e in f.items()), count(max(startvalue, 1)))
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, May 17 2022
STATUS
approved