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 A090046 #12 Jul 28 2025 03:13:36
%S A090046 1,0,1,0,1,1,3,2,1,1,0,2,2,1,1,1,1,1,4,3,2,2,2,2,4,2,2,1,1,3,0,5,3,3,
%T A090046 2,2,2,3,2,1,2,1,1,5,3,3,2,1,3,2,2,1,3,1,7,5,4,4,3,3,3,2,2,2,2,2,2,3,
%U A090046 1,1,4,2,1,1,1,1,4,3,3,2,3,2,1,3,1,1,5,2,2,2,2,1,2,1,2,1,1,5,5,4,3,3,3,3,3
%N A090046 Length of longest contiguous block of 0's in binary expansion of n-th prime.
%H A090046 Amiram Eldar, <a href="/A090046/b090046.txt">Table of n, a(n) for n = 1..10000</a>
%F A090046 a(n) = A087117(A000040(n)).
%t A090046 f[n_] := Length[ Union[ DeleteCases[ Split[ IntegerDigits[n, 2]], 1, 2]][[ -1]]]; Table[ f[ Prime[n]], {n, 1, 105}] (* _Robert G. Wilson v_, Dec 03 2003 *)
%Y A090046 Cf. A000040, A004676, A023416, A087117, A090000, A090047, A090048, A090049.
%K A090046 nonn,base
%O A090046 1,7
%A A090046 _Reinhard Zumkeller_, Nov 20 2003