|
|
A005472
|
|
Class numbers of cubic fields.
(Formerly M3291)
|
|
2
|
|
|
1, 1, 1, 1, 1, 1, 1, 4, 7, 4, 4, 4, 7, 4, 13, 7, 19, 7, 7, 7, 19, 19, 19, 16, 31, 19, 28, 19, 49, 31, 28, 31, 64, 43, 37, 127, 61, 52, 52, 52, 49, 100, 37, 112, 64, 67, 61, 76, 61, 76, 61, 61, 112, 76, 73, 67, 133, 91, 223, 169, 73, 112, 100, 169, 91, 121, 175
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,8
|
|
COMMENTS
|
Class numbers of cubic fields with discriminants p^2, where p runs through the primes in A005471.
|
|
REFERENCES
|
N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
|
|
LINKS
|
|
|
PROG
|
local(a);
if(n==1,
return(1),
while(1,
if( isprime(a^2+3*a+9),
return(a),
a++
);
)
)
};
local(a, bnf, L, H);
if(n==1, return(1));
bnf=bnfinit(x^3-a*x^2-(a+3)*x-1);
L=ideallist(bnf, 1, 2);
H=bnrclassnolist(bnf, L);
return(H[1][1]);
};
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|