OFFSET
1,2
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..1000
FORMULA
a(p) = 9 * 2^(p-2) for prime p >= 5.
a(p^e) = 9 * 2^(p^e-2) for prime p >= 3 and e >= 2.
MATHEMATICA
lps = Cases[Import["https://oeis.org/A025487/b025487.txt", "Table"], {_, _}][[;; , 2]]; f[p_, e_] := e/2 + 1; f[1] = 1; f[n_] := Times @@ f @@@ FactorInteger[n]; s = f /@ lps; lps[[TakeWhile[Flatten[FirstPosition[s, #] & /@ Range[Max[s]]], ! MissingQ[#] &]]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Jul 23 2024
STATUS
approved