This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A071772 #11 Feb 15 2014 01:09:17 %S A071772 1,1,1,1,5,691,3617,43867,854513,23749461029,8615841276005, %T A071772 26315271553053477373,261082718496449122051,1520097643918070802691, %U A071772 596451111593912163277961,801165718135489957347924991853 %N A071772 Absolute values of the numerator of B(prime(n)-1) where B(k) are the Bernoulli numbers. %C A071772 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 A071772 Abs[Numerator[#]]&/@BernoulliB[Prime[Range[20]]-1] (* _Harvey P. Dale_, Jun 28 2011 *) %o A071772 (PARI) for(n=1,20,print1(abs(numerator(bernfrac(prime(n)-1))),",")) %K A071772 easy,nonn %O A071772 1,5 %A A071772 _Benoit Cloitre_, Jun 24 2002