OFFSET
1,2
LINKS
Éric Angelini, Sums of distinct prime factors, Personal blog, December 2023.
EXAMPLE
a(1) + a(2) = 4, sopf(4) = 2 and n=2 divides 2.
a(6) + a(7) = 33, sopf(33) = 14 and n=7 divides 14.
MATHEMATICA
a[1]=1; a[n_]:=a[n]=(k=1; While[MemberQ[Array[a, n-1], k]|| Mod[Total[First/@FactorInteger[k+a[n-1]]], n]!=0, k++]; k); Array[a, 70]
CROSSREFS
KEYWORD
nonn
AUTHOR
Giorgos Kalogeropoulos and Eric Angelini, Dec 05 2023
STATUS
approved