OFFSET
1,1
COMMENTS
Record values appear to match the terms of A002383 for n>1. - Bill McEachen, Oct 18 2023
LINKS
R. J. Mathar and T. D. Noe, Table of n, a(n) for n = 1..10000 (first 5000 terms from R. J. Mathar)
J. Buchmann, K. Győry, M. Mignotte, and N. Tzanakis, Lower bounds for P(x^3+k), an elementary approach, Publ. Math. Debrecen, Vol. 38, No. 1-2 (1991), pp. 145-163.
FORMULA
a(n) >= 31 for n >= 70 (Buchmann et al., 1991). - Amiram Eldar, Oct 25 2024
MAPLE
A081256 := proc(n)
A006530(n^3+1) ;
end proc:
seq(A081256(n), n=1..20) ; # R. J. Mathar, Feb 13 2014
MATHEMATICA
Table[Max[Transpose[FactorInteger[n^3 + 1]][[1]]], {n, 25}]
PROG
(PARI) a(n)=my(f=factor(n^3+1)); f[#f~, 1] \\ Charles R Greathouse IV, Mar 08 2017
(PARI) A081256(n)=vecmax(factor(n^3+1)[, 1]) \\ It seems slightly slower to get the last element using ...[-1..-1][1]. - M. F. Hasler, Jun 15 2018
CROSSREFS
KEYWORD
easy,nonn,changed
AUTHOR
Jan Fricke, Mar 14 2003
EXTENSIONS
More terms from Harvey P. Dale, Mar 22 2003
More terms from Hugo Pfoertner, Jun 20 2004
STATUS
approved