login
A109205
Minimal value of k>0 such that n^10 + k^2 is a semiprime.
2
2, 3, 7, 4, 1, 4, 5, 2, 5, 10, 3, 2, 11, 7, 9, 8, 1, 10, 7, 4, 7, 4, 5, 2, 5, 3, 1, 20, 3, 9, 7, 2, 7, 5, 21, 4, 5, 2, 3, 4, 3, 4, 25, 3, 3, 13, 31, 2, 7, 24, 7, 2, 5, 2, 1, 4, 9, 7, 5, 4, 23, 9, 17, 8, 29, 8, 17, 2, 3, 10, 13, 2, 13, 7, 5, 4, 11, 8, 5, 10, 17, 4, 21, 5, 31, 4, 5, 4, 13, 2, 7, 4, 25
OFFSET
0,1
LINKS
EXAMPLE
a(0) = 2 because 0^10 + 1^2 = 1 is not semiprime, but 0^10 + 2^2 = 4 = 2^2 is.
a(1) = 3 because 1^10 + 1^2 and 1^10 + 2^2 are not semiprime, but 1^10 + 3^2 = 10 = 2 * 5 is semiprime.
a(2) = 7 because 2^10 + 7^2 = 1073 = 29 * 37 is semiprime, but 2^10 plus no smaller square is.
a(99) = 56 because 99^10 + 56^2 = 90438207500880452137 = 3733 * 24226682963000389 and for no smaller k>0 is 99^10 + k^2 a semiprime.
a(100) = 17 because 100^10 + 17^2 = 100000000000000000289 = 181 *
552486187845303869 and for no smaller k>0 is 100^10 + k^2 a semiprime.
MATHEMATICA
mvk[n_]:=Module[{c=n^10, k=1}, While[PrimeOmega[c+k^2]!=2, k++]; k]; Array[ mvk, 100, 0] (* Harvey P. Dale, Aug 01 2021 *)
KEYWORD
easy,nonn
AUTHOR
Jonathan Vos Post, Jul 05 2005
STATUS
approved