|
|
A085753
|
|
Least k such that n^n + k is a semiprime.
|
|
4
|
|
|
3, 0, 6, 3, 2, 5, 6, 3, 4, 3, 6, 31, 6, 3, 4, 1, 20, 19, 28, 3, 8, 3, 60, 5, 16, 15, 46, 3, 2, 7, 12, 13, 4, 3, 18, 3, 9, 3, 32, 7, 6, 37, 30, 61, 2, 81, 26, 5, 34, 79, 62, 6, 44, 5, 16, 15, 10, 133, 12, 31, 28, 49, 26, 21, 92, 43, 76, 67, 38, 57, 36, 43, 21, 115, 2, 25, 74, 179, 28, 27, 52, 15
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
PrimeFactorExponentsAdded[n_] := Plus @@ Flatten[ Table[ # [[2]], {1}] & /@ FactorInteger[n]]; f[n_] := Block[{k = 0}, While[ PrimeFactorExponentsAdded[n^n + k] != 2, k++ ]; k]; Table[ f[n], {n, 1, 40}]
|
|
PROG
|
(PARI) a(n) = my(k=0); while (bigomega(n^n+k) != 2, k++); k; \\ Michel Marcus, Jul 21 2020
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|