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 A373559 #15 Jun 12 2024 17:24:04 %S A373559 1,4,16,36,64,144,256,324,576,900,1024,1296,2304,2916,3600,4096,5184, %T A373559 8100,9216,11664,14400,16384,20736,22500,26244,32400,36864,44100, %U A373559 46656,57600,65536,72900,82944,90000,104976,129600,147456,176400,186624,202500,230400,236196,262144 %N A373559 Squares k such that rad(k) is a primorial number. %C A373559 Squares k such that the squarefree kernel of k is primorial. %C A373559 Intersection of A000290 and A055932. %C A373559 1 is the only primorial term. %C A373559 From _Michael De Vlieger_, Jun 09 2024: (Start) %C A373559 Contains k^2 for k in each of A000079, A033845, A143207, A147571, A147572, etc. %C A373559 Contains k^2 such that k is a product of primorials, i.e., A025487(i)^2, i >= 1, since A025487 is a proper subset of A055932. %C A373559 (End) %H A373559 Michael De Vlieger, <a href="/A373559/b373559.txt">Table of n, a(n) for n = 1..10000</a> %F A373559 a(n) = A055932(n)^2. %e A373559 1 is a square, rad(1) = 1 = A002110(0). %e A373559 4 is a square and rad(4) = 2 = A002110(1). %e A373559 36 is a square and rad(36) = 6 = A002110(2). %t A373559 {1}~Join~Select[Range[2, 512, 2], Or[# == {2}, Union@ Differences@ PrimePi[#] == {1}] &@ FactorInteger[#][[All, 1]] &]^2 (* _Michael De Vlieger_, Jun 09 2024 *) %Y A373559 Cf. A000290, A002110, A007947, A055932, %K A373559 nonn,easy %O A373559 1,2 %A A373559 _David James Sycamore_, Jun 09 2024 %E A373559 More terms from _David A. Corneth_, Jun 09 2024