OFFSET
1,1
LINKS
Michael S. Branicky, Table of n, a(n) for n = 1..49
FORMULA
a(n) >= A369351(n).
PROG
(Python)
from sympy import factorint
from functools import cache
from itertools import count, islice
from collections import Counter
kcount, kmax = Counter(), 0
@cache
def sopfr(n): return sum(p*e for p, e in factorint(n).items())
def f(n): # revised based on comment by David A. Corneth in A369351
global kcount, kmax
target = n - sopfr(n)
for k in range(kmax+1, target+1):
kcount[k+sopfr(k)] += 1
kmax += 1
return kcount[target]
def agen(): # generator of terms
adict, n = dict(), 1
for m in count(2):
v = f(m)
if v not in adict: adict[v] = m
while n in adict: yield adict[n]; n += 1
print(list(islice(agen(), 12)))
CROSSREFS
KEYWORD
nonn
AUTHOR
Michael S. Branicky, Feb 09 2024
EXTENSIONS
More terms from David A. Corneth, Feb 11 2024
STATUS
approved