LINKS
Paolo Xausa, <a href="/A373087/b373087_1.txt">Table of n, a(n) for n = 1..10000</a>
Paolo Xausa, <a href="/A373087/b373087_1.txt">Table of n, a(n) for n = 1..10000</a>
proposed
approved
editing
proposed
Paolo Xausa, <a href="/A373087/b373087_1.txt">Table of n, a(n) for n = 1..10000</a>
Select[Range[200]^2, PrimeNu[#/2^IntegerExponent[#, 2]] == 2 &] (* Paolo Xausa, Jul 10 2024 *)
approved
editing
proposed
approved
editing
proposed
proposed
approved
editing
proposed
The sequence b with terms of b(n)=2*sqrt(a(n)) are is a subsequence of A098904. - Hugo Pfoertner, Jun 01 2024