OFFSET
1,3
COMMENTS
LINKS
Michel Lagneau, Table of n, a(n) for n = 1..10000
FORMULA
a(n) = A052126(1+n^2). - R. J. Mathar, Jun 18 2015
MAPLE
A248516 := proc(n)
n^2+1 ;
%/A006530(%) ;
end proc:
seq(A248516(n), n=1..20) ; # R. J. Mathar, Jun 18 2015
MATHEMATICA
Table[(n^2 + 1)/FactorInteger[n^2 + 1][[-1, 1]], {n, 75}] (* Michael De Vlieger, Jun 19 2015 *)
PROG
(PARI) a(n) = my(x=n^2+1); my(f=factor(x)); x/f[#f~, 1]; \\ Michel Marcus, Jun 18 2015
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Michel Lagneau, Jun 18 2015
STATUS
approved