%I #11 Feb 15 2014 01:09:17
%S 1,1,1,1,5,691,3617,43867,854513,23749461029,8615841276005,
%T 26315271553053477373,261082718496449122051,1520097643918070802691,
%U 596451111593912163277961,801165718135489957347924991853
%N Absolute values of the numerator of B(prime(n)-1) where B(k) are the Bernoulli numbers.
%C Prime(n) never divides a(n). a(n) reduced (modulo prime(n) ) equals often 30: for n = 16,33,35,40,57,62,66,77,97,102,104,119,...
%t Abs[Numerator[#]]&/@BernoulliB[Prime[Range[20]]-1] (* _Harvey P. Dale_, Jun 28 2011 *)
%o (PARI) for(n=1,20,print1(abs(numerator(bernfrac(prime(n)-1))),","))
%K easy,nonn
%O 1,5
%A _Benoit Cloitre_, Jun 24 2002