OFFSET
0,5
COMMENTS
Conjecture: signum(a(n)) + (-1)^n = 0 for n >= 3.
LINKS
MAPLE
# The function EulerInvTransform is defined in A358451.
a := EulerInvTransform(n -> ifelse(isprime(n), n, 1)):
seq(a(n), n = 0..41);
# Using EULERi the sequence is returned without a(0) and has offset 1.
f := n -> ifelse(isprime(n), n, 1): EULERi([seq(f(n), n = 1..41)]);
CROSSREFS
KEYWORD
sign
AUTHOR
Peter Luschny, Nov 21 2022
STATUS
approved