OFFSET
1,1
COMMENTS
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..10000
EXAMPLE
b(n) = A025487(n).
a(1) = b(11) = 36 = 6^2 = b(4)^2,
a(2) = b(19) = 144 = 12^2 = b(6)^2,
a(3) = b(23) = 216 = 6^3 = b(4)^3,
a(4) = b(33) = 576 = 24^2 = b(8)^2,
a(5) = b(38) = 900 = 30^2 = b(9)^2, etc.
MATHEMATICA
Select[Range[36, 2^18, 2], And[Union@ Differences@ PrimePi@ #1 == {1}, AllTrue[Union@ Differences@ #2, # <= 0 &], GCD @@ #2 > 1] & @@ Transpose@ FactorInteger[#] &]
CROSSREFS
KEYWORD
nonn
AUTHOR
Michael De Vlieger, Jan 02 2024
STATUS
approved