close
login
A385380
Partial products of the sequence nonprime powers of primes (A025475).
2
1, 4, 32, 288, 4608, 115200, 3110400, 99532800, 4877107200, 312134860800, 25282923724800, 3059233770700800, 382404221337600000, 48947740331212800000, 8272168115974963200000, 2010136852181916057600000, 514595034158570510745600000, 148717964871826877605478400000
OFFSET
1,2
COMMENTS
Indices of records in A385379.
a(n) is the least index k such that A385379(k) = n-1.
FORMULA
a(n) = Product_{k=1..n} A025475(k).
MATHEMATICA
FoldList[Times, 1, Select[Range[250], !PrimeQ[#] && PrimePowerQ[#] &]] (* Amiram Eldar, Jun 27 2025 *)
PROG
(PARI) list(lim) = {my(p = 1); print1(p, ", "); for(k = 2, lim, if(isprimepower(k) > 1, p *= k; print1(p, ", "))); }
CROSSREFS
Subsequence of A001694 and A025487 (i.e., of A181800).
Sequence in context: A366663 A110901 A380318 * A295538 A256183 A000766
KEYWORD
nonn,easy
AUTHOR
Amiram Eldar, Jun 27 2025
STATUS
approved