login
A358452
The inverse Euler transform of p(n) = n if n is prime, otherwise 1.
0
1, 1, 1, 1, -3, 3, -3, 5, -8, 5, -11, 36, -45, 41, -72, 142, -223, 311, -493, 851, -1243, 1823, -3204, 5336, -7906, 12083, -20134, 33133, -51685, 81568, -133556, 215363, -340155, 547916, -895895, 1442323, -2300704, 3718260, -6056908, 9787064, -15755664, 25541623
OFFSET
0,5
COMMENTS
Conjecture: signum(a(n)) + (-1)^n = 0 for n >= 3.
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
Sequence in context: A307446 A122519 A141695 * A261450 A100026 A350537
KEYWORD
sign
AUTHOR
Peter Luschny, Nov 21 2022
STATUS
approved