OFFSET
1,2
EXAMPLE
The initial terms of A280292 are (0,0,0,2,0,0,0,4,3,0,0,2,0,0,0,6,0,3,0,2,0,0,0,4,5,0,6,2,...), wherein a value appears for the first time at positions 1, 4, 8, 9, 16, 25, ...
MATHEMATICA
prifacs[n_]:=If[n==1, {}, Flatten[Apply[ConstantArray, FactorInteger[n], {1}]]];
q=Table[Total[prifacs[n]]-Total[Union[prifacs[n]]], {n, 10000}];
Select[Range[Length[q]], FreeQ[Take[q, #-1], q[[#]]]&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Feb 18 2025
STATUS
approved