|
Search: id:A085753
|
|
|
| A085753 |
|
Least k such that n^n + k is a semiprime. |
|
+0
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, 27, 44, 5, 16, 15, 10, 133, 12, 31, 28, 49, 26, 21, 92, 43, 76, 67
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
The parity of a(n) is opposite to that of n.
|
|
LINKS
|
Dario Alejandro Alpern, Factorization using the Elliptic Curve Method
|
|
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}]
|
|
CROSSREFS
|
Cf. A089542, A089543, A089544.
Adjacent sequences: A085750 A085751 A085752 this_sequence A085754 A085755 A085756
Sequence in context: A113062 A005889 A095712 this_sequence A120008 A051021 A088162
|
|
KEYWORD
|
more,nonn
|
|
AUTHOR
|
Jason Earls (zevi_35711(AT)yahoo.com), Jul 21 2003
|
|
EXTENSIONS
|
Edited and extended by Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 14 2003
Corrected and extended by Ray Chandler (rayjchandler(AT)sbcglobal.net), Nov 22 2003
|
|
|
Search completed in 0.002 seconds
|
