OFFSET
0,2
COMMENTS
Indices of records in A363455.
EXAMPLE
MATHEMATICA
lps = Cases[Import["https://oeis.org/A025487/b025487.txt", "Table"], {_, _}][[;; , 2]];
cher = Table[Product[Prime[k]^(n - k + 1), {k, 1, n}], {n, 0, 8}]
Position[lps, #] & /@ cher // Flatten
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Amiram Eldar, Jun 03 2023
STATUS
approved