login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A285709 a(n) = A000010(n) - A285699(n). 5
0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 1, 0, 0, 2, 0, 0, 4, 0, 4, 0, 4, 0, 2, 0, 2, 0, 0, 0, 5, 0, 0, 14, 14, 14, 8, 0, 12, 12, 8, 0, 6, 0, 8, 6, 8, 0, 4, 0, 10, 8, 4, 0, 12, 10, 17, 6, 2, 0, 10, 0, 0, 22, 0, 8, 18, 0, 28, 2, 18, 0, 16, 0, 26, 10, 24, 32, 18, 0, 16, 0, 22, 0, 21, 4, 20, 50, 16, 0, 15, 30, 16, 48, 16, 2, 17, 0, 8, 42, 20, 0, 26, 0, 8, 24, 10, 0, 24, 0, 30, 42, 34, 0, 30, -2 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,10

COMMENTS

The scatter plot has unusual "rays".

LINKS

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

FORMULA

a(n) = A000010(n) - A285699(n).

For n > 1, a(n) = (A000010(n) + A079277(n)) - n = A079277(n) - A051953(n).

MATHEMATICA

Table[EulerPhi@ n - (n - If[n <= 2, n - 1, Module[{k = n - 2, e = Floor@ Log2@ n}, While[PowerMod[n, e, k] != 0, k--]; k]]), {n, 115}] (* Michael De Vlieger, Apr 26 2017 *)

PROG

(PARI)

A007947(n) = factorback(factorint(n)[, 1]); \\ From Andrew Lelechenko, May 09 2014

A079277(n) = { my(r); if((n > 1 && !bitand(n, (n-1))), (n/2), r=A007947(n); if(1==n, 0, k = n-1; while(A007947(k*n) <> r, k = k-1); k)); };

A285709(n) = if(!n, n, (eulerphi(n)+A079277(n))-n);

(Scheme) (define (A285709 n) (- (A000010 n) (A285699 n)))

(Python)

from sympy import divisors, totient

from sympy.ntheory.factor_ import core

def a007947(n): return max(list(filter(lambda i: core(i) == i, divisors(n))))

def a079277(n):

    k=n - 1

    while True:

        if a007947(k*n) == a007947(n): return k

        else: k-=1

def a285699(n): return 1 if n<2 else n - a079277(n)

def a(n): return totient(n) - a285699(n)

print [a(n) for n in xrange(1, 116)] # Indranil Ghosh, Apr 26 2017

CROSSREFS

Cf. A000010, A007947, A051953, A079277, A285699, A285711.

Cf. A285710 (positions of zeros), A208815 (of negative terms).

Sequence in context: A226861 A185643 A278515 * A080101 A025895 A104451

Adjacent sequences:  A285706 A285707 A285708 * A285710 A285711 A285712

KEYWORD

sign,look

AUTHOR

Antti Karttunen, Apr 26 2017

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 October 22 22:34 EDT 2019. Contains 328335 sequences. (Running on oeis4.)