OFFSET
1,1
COMMENTS
LINKS
Leon Bernstein, Fundamental units and cycles in the period of real quadratic number fields, I. Pacific J. Math 63 (1976): 37-61.
MATHEMATICA
Select[Table[16k^4+40k^3+33k^2+12k+2, {k, 50}], SquareFreeQ] (* Harvey P. Dale, May 16 2014 *)
PROG
(PARI) list(n)=for(n=1, 50, t=16*n^4 + 40*n^3 + 33*n^2 + 12*n + 2; if(issquarefree(t), print1(t, ", ")))
CROSSREFS
KEYWORD
nonn
AUTHOR
Ralf Stephan, Feb 10 2014
EXTENSIONS
Definition corrected by Harvey P. Dale, May 16 2014
STATUS
approved