OFFSET
1,1
COMMENTS
a(n) > 0 follows from the definition of A099610.
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
Module[{nn=120, p2p}, p2p=Union[Times@@@Subsets[Prime[Range[2, PrimePi[ Ceiling[ nn^2/3]]]], {2}]]; Table[SelectFirst[p2p, #>n^2&]-n^2, {n, nn}]] (* Harvey P. Dale, Dec 06 2021 *)
PROG
(Python)
from itertools import count
from sympy import factorint
def A349806(n):
for i in count(n**2+(n%2)+1, 2):
fs = factorint(i)
if len(fs) == 2 == sum(fs.values()):
return i-n**2 # Chai Wah Wu, Dec 05 2021
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Dec 05 2021
STATUS
approved