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 A152081 #12 Sep 24 2023 04:03:56 %S A152081 5,7,3,7,5,3,11,3,5,7,3,11,13,3,7,3,3,5,5,3,5,3,13,17,3,7,11,5,7,5,3, %T A152081 3,7,5,3,11,5,5,19,7,5,29,3,3,11,5,5,7,11,3,7,29,5,3,3,19,3,3,3,13,5, %U A152081 7,29,7,31,3,23,17,13,13,3,19,3,3,7,3,5,7,3,11,11,29,37 %N A152081 Least prime divisor of terms of A152080. %F A152081 a(n) = A020639(A152080(n)). - _Michel Marcus_, Sep 24 2023 %o A152081 (PARI) a000695(n) = fromdigits(binary(n), 4); %o A152081 lista(nn) = forcomposite(n=1, nn, if (isprime(a000695(n)), print1(factor(n)[1,1], ", "))); \\ _Michel Marcus_, Dec 18 2018 %Y A152081 Cf. A020639, A152080, A000625, A152021, A152022, A152023, A152078. %K A152081 nonn %O A152081 1,1 %A A152081 _Vladimir Shevelev_, Nov 23 2008 %E A152081 More terms from _Michel Marcus_, Jun 02 2013 %E A152081 More terms from _Michel Marcus_, Dec 18 2018