A357588 - OEIS

A357588

The compositional inverse of n -> n^[isprime(n)], where [b] is the Iverson bracket of b.

1, -2, 5, -11, 6, 146, -1295, 7712, -36937, 141514, -357676, -322973, 12078666, -102218510, 623243991, -3041134727, 11440387382, -23657862864, -95377084665, 1570488584608, -12255377466362, 72288056416374, -340793435817068, 1186234942871544, -1525020468715715

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,2

LINKS

Table of n, a(n) for n=1..25.

MAPLE

# REVERT from N. J. A. Sloane's 'Transforms' (see the footer of the page).

REVERT([seq(if isprime(k) then k else 1 fi, k = 1..25)]);

# Alternative:

CompInv := proc(len, seqfun) local n, k, m, g, M, A;

A := [seq(seqfun(i), i=1..len)];

M := Matrix(len+1, shape=triangular[lower]); M[1, 1] := 1;