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 A123533 #26 Jun 04 2025 07:17:02
%S A123533 3,5,11,17,29,37,41,59,79,89,109,349,419,433,461,503,587,601,643,727,
%T A123533 769,809,857,881,929,937,953,977,1009,1033,1049,1097,1129,1153,1193,
%U A123533 1201,1217,1249,1289,1297,1321,1361,1409,1433,1481,1489,1553,1601,1609
%N A123533 Primes in A001855.
%H A123533 Paolo Xausa, <a href="/A123533/b123533.txt">Table of n, a(n) for n = 1..10000</a>
%p A123533 A001855 := proc(n) local c ; c := ceil(log[2](n)) ; n*c-2^c+1 ; end: for n from 1 to 300 do srts := A001855(n) : if isprime(srts) then printf("%d, ",srts) ; fi ; od : # _R. J. Mathar_, Dec 16 2006
%t A123533 Select[Accumulate[BitLength[Range[0, 300]]], PrimeQ] (* _Paolo Xausa_, Jun 28 2024 *)
%Y A123533 Intersection of A000040 and A001855.
%Y A123533 Cf. A001768, A029837, A003071, A000337, A030190, A030308, A061168.
%K A123533 easy,nonn
%O A123533 1,1
%A A123533 _Jonathan Vos Post_, Nov 10 2006
%E A123533 Corrected and extended by _R. J. Mathar_, Dec 16 2006