A030013 - OEIS

The OEIS is supported by the many generous donors to the OEIS Foundation.

A030013

Moebius transform of {1, primes}.

7

1, 1, 2, 3, 6, 7, 12, 12, 16, 15, 28, 17, 36, 27, 34, 30, 52, 32, 60, 41, 56, 43, 78, 40, 82, 59, 82, 59, 106, 43, 112, 80, 100, 83, 120, 70, 150, 95, 124, 88, 172, 73, 180, 115, 134, 117, 198, 98, 210, 122, 174, 133, 238, 100, 216, 142, 200, 161, 270, 107, 280, 169, 206, 180

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

OFFSET

1,3

LINKS

Alois P. Heinz, Table of n, a(n) for n = 1..10000

N. J. A. Sloane, Transforms

MAPLE

a:= proc(n) option remember;

ithprime(n-1)-add(a(d), d=numtheory[divisors](n) minus {n})

end: a(1):=1:

seq(a(n), n=1..64); # Alois P. Heinz, Oct 04 2025

PROG

(PARI) a(n) = sumdiv(n, d, if (d==1, 1, prime(d-1))*moebius(n/d)); \\ Michel Marcus, Nov 04 2018

CROSSREFS

Cf. A008578 ({1, primes}), A007444 (Moebius transform of primes), A008683.

Sequence in context: A115889 A101319 A182538 * A130404 A362009 A376313

Adjacent sequences: A030010 A030011 A030012 * A030014 A030015 A030016

KEYWORD

nonn,look

AUTHOR

N. J. A. Sloane

EXTENSIONS

Offset 1 and more terms from Michel Marcus, Nov 04 2018

STATUS

approved