|
| |
|
|
A127991
|
|
2n^3 - 2n + 9 divided by 3*largest prime factor.
|
|
2
| |
|
|
1, 1, 1, 1, 1, 11, 1, 3, 21, 39, 1, 31, 1, 1, 1, 7, 297, 9, 351, 1, 1, 19, 91, 1, 101, 141, 51, 33, 37, 49, 1, 299, 37, 1, 3, 39, 21, 1, 11, 1, 19, 1, 31, 1071, 351, 9, 43, 1, 481, 11, 511, 83, 3, 3, 69, 1, 1, 91, 1, 19, 187, 39, 219, 417, 553, 37, 1, 1, 1, 1369, 117, 693, 423, 31
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,6
|
|
|
MATHEMATICA
| a = {}; Do[AppendTo[a, 2n^3 - 2n + 9], {n, 1, 300}]; b = {}; Do[c = FactorInteger[a[[n]]]; d = c[[Length[c]]]; AppendTo[b, a[[n]]/(3 d[[1]])], {n, 1, Length[a]}]; b (*Artur Jasinski*)
|
|
|
CROSSREFS
| Cf. A127979, A127990, A127992.
Sequence in context: A039617 A010198 A204846 * A110305 A010199 A113492
Adjacent sequences: A127988 A127989 A127990 * A127992 A127993 A127994
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Artur Jasinski (grafix(AT)csl.pl), Feb 10 2007
|
| |
|
|
