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 A255684 #41 Sep 08 2022 08:46:11
%S A255684 58,406,754,986,1682,1798,2146,2494,2726,3422,3886,4118,4234,5626,
%T A255684 5858,5974,6206,7366,7946,8062,8642,8758,9106,9454,9686,11194,11426,
%U A255684 11542,11774,12586,12934,13166,13282,13978,14906,15022,15254,15602,15718,16414,17458,18038,18154,18386,19198,19546
%N A255684 Bernoulli number B_{n} has denominator 354.
%C A255684 All terms are multiples of a(1) = 58.
%C A255684 Numerator(B_{n}) mod Denominator(B_{n}) = 53.
%H A255684 Seiichi Manyama, <a href="/A255684/b255684.txt">Table of n, a(n) for n = 1..1000</a>
%e A255684 B_{58} = 84483613348880041862046775994036021 / 354.
%p A255684 with(numtheory): P:=proc(q) local n; for n from 2 by 2 to q do
%p A255684 if denom(bernoulli(n))=354 then print(n); fi; od; end: P(10^5);
%t A255684 Select[Range@ 10000, Denominator@ BernoulliB@# == 354 &] (* _Michael De Vlieger_, Mar 31 2015 *)
%o A255684 (Magma) [n: n in [0..1000] | Denominator(Bernoulli(n)) eq 354]; // _Vincenzo Librandi_, Apr 06 2015
%o A255684 (PARI) isok(n) = denominator(bernfrac(n)) == 354; \\ _Michel Marcus_, Apr 22 2016
%Y A255684 Cf. A045979, A051222, A051225-A051230, A119456, A119480, A249134,
%Y A255684 A271634, A271635, A272138, A272139, A272140, A272183, A272184, A272185, A272186.
%K A255684 nonn,easy
%O A255684 1,1
%A A255684 _Paolo P. Lava_, Mar 30 2015
%E A255684 More terms from _Michael De Vlieger_, Mar 31 2015