|
|
A107745
|
|
Smallest prime factor of 6*n-1.
|
|
6
|
|
|
5, 11, 17, 23, 29, 5, 41, 47, 53, 59, 5, 71, 7, 83, 89, 5, 101, 107, 113, 7, 5, 131, 137, 11, 149, 5, 7, 167, 173, 179, 5, 191, 197, 7, 11, 5, 13, 227, 233, 239, 5, 251, 257, 263, 269, 5, 281, 7, 293, 13, 5, 311, 317, 17, 7, 5, 11, 347, 353, 359, 5, 7, 13, 383, 389, 5, 401, 11
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
If 6*n-1 is prime, a(n) = 6*n-1.
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
a[n_]:= FactorInteger[6*n - 1][[1, 1]]; Array[a, 100]
|
|
PROG
|
(PARI) vector(100, n, vecmin(factor(6*n-1)[, 1])) \\ Altug Alkan, Oct 23 2015
(Magma) [Min(PrimeFactors(6*n-1)):n in[1..68]]; // Jason Kimberley, Oct 28 2015
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|