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 A365422 #6 Sep 04 2023 18:21:18
%S A365422 3,6,7,12,14,24,28,31,45,48,55,56,62,90,96,110,111,112,119,123,124,
%T A365422 127,175,180,192,207,220,222,224,238,246,247,248,253,254,350,360,384,
%U A365422 414,440,444,447,448,476,492,494,496,506,508,567,700,720,768,828,880,888,894,895,896,927,945,952,957,959,984,987,988,992
%N A365422 Numbers k for which k and A163511(k) have the same prime signature.
%C A365422 If k is present, then 2*k is also a term, and vice versa.
%o A365422 (PARI)
%o A365422 A046523(n) = { my(f=vecsort(factor(n)[, 2], , 4), p); prod(i=1, #f, (p=nextprime(p+1))^f[i]); }; \\ From A046523
%o A365422 A163511(n) = if(!n, 1, my(p=2, t=1); while(n>1, if(!(n%2), (t*=p), p=nextprime(1+p)); n >>= 1); (t*p));
%o A365422 A365421(n) = (A046523(A163511(n))==A046523(n));
%o A365422 isA365422(n) = A365421(n);
%Y A365422 Cf. A046523, A163511, A278531, A365421 (characteristic function).
%Y A365422 Subsequences: A007283, A335431, A365423 (odd terms).
%K A365422 nonn
%O A365422 1,1
%A A365422 _Antti Karttunen_, Sep 04 2023