OFFSET
1,2
COMMENTS
Numbers starting with 4 :
4, 5, 12, 25, 85, 126, 145, 186, 252, 1146, ...
Numbers starting with 5 :
5, 6, 11, 26, 55, 424, 444, 589, 722, 1573, ...
Numbers starting with 7 :
7, 9, 10, 20, 22, 118, 350, 1012, 1433, 2043, ...
EXAMPLE
The set {6, 58, 124} gives the number of distinct prime factors {1, 3, 3}.
MAPLE
with(numtheory):nn:=1000000:T:=array(1..nn): U:=array(1..nn): for p from 1
to nn do: T[p]:=p:U[p]:=1:od:for u from 1 to 30 do: k:=1+u:for n from u+1 to
nn do:s:=T[n]+T[u]:s1:=nops(factorset(s)):z:=irem(s1, 2):if z=1 then U[k]:=T[n]:k:=k+1:else
fi:od:for i from 1 to nn do:T[i]:=U[i]:od:od:for j from 1 to 30 do:printf(`%d, `, T[j]):od:
MATHEMATICA
t={1}; k=1; Do[k++; While[! And @@ OddQ[Length /@ FactorInteger[t+k]], k++]; AppendTo[t, k], {10}]; t
CROSSREFS
KEYWORD
nonn
AUTHOR
Michel Lagneau, Jan 21 2011
EXTENSIONS
a(23)-a(30) from Donovan Johnson, Jan 25 2011
STATUS
approved