OFFSET
1,1
EXAMPLE
9 = 4*2+1, 25 = 6*4+1, 10 = 9*1+1.
MATHEMATICA
sp = Select[Range[4, 10^3], 2 == PrimeOmega[#] &]; Table[n = sp[[k]]; a = n; While[2 != PrimeOmega[a + 1], a = a + n]; a + 1, {k, 100}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, May 09 2021
STATUS
approved