login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A078771 a(n) = A008475(n) - A001414(n). 2
0, 0, 0, 0, 0, 0, 0, 2, 3, 0, 0, 0, 0, 0, 0, 8, 0, 3, 0, 0, 0, 0, 0, 2, 15, 0, 18, 0, 0, 0, 0, 22, 0, 0, 0, 3, 0, 0, 0, 2, 0, 0, 0, 0, 3, 0, 0, 8, 35, 15, 0, 0, 0, 18, 0, 2, 0, 0, 0, 0, 0, 0, 3, 52, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 15, 0, 0, 0, 0, 8, 69, 0, 0, 0, 0, 0, 0, 2, 0, 3, 0, 0, 0, 0, 0, 22, 0, 35, 3, 15 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,8

COMMENTS

a(n) is not zero if n is in A046790.

LINKS

Antti Karttunen, Table of n, a(n) for n = 1..65537

MATHEMATICA

Array[Total[Power @@@ #] - Total[Times @@@ #] &@ FactorInteger@ # &, 100] (* Michael De Vlieger, Nov 17 2017, after Olivier Gérard at A008475 and Ray Chandler at A001414 *)

PROG

(PARI)

A001414(n) = ((n=factor(n))[, 1]~*n[, 2]); \\ This function from M. F. Hasler, Feb 07 2009

A008475(n) = { my(f=factor(n)); vecsum(vector(#f~, i, f[i, 1]^f[i, 2])); };

A078771(n) = (A008475(n) - A001414(n)); \\ Antti Karttunen, Nov 17 2017

CROSSREFS

Cf. A001414, A008475, A046790.

Sequence in context: A083925 A208150 A045830 * A072771 A292247 A194016

Adjacent sequences:  A078768 A078769 A078770 * A078772 A078773 A078774

KEYWORD

nonn

AUTHOR

Benoit Cloitre, Jan 11 2003

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified April 1 05:29 EDT 2020. Contains 333155 sequences. (Running on oeis4.)