The OEIS is supported by the many generous donors to the OEIS Foundation. Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A196736 Define k(x) = number of m such that A000005(gcd(n,m)) is x where m runs from 1 to n , x = 1,2,.. ; z = A000005( cototient(n) ) ; sequence gives numbers n such that n - ( Sum_{i=1..j} k(i) ) divides cototient(n) for any j <= z , k(i)>0. 1
 1, 2, 3, 4, 5, 7, 8, 9, 11, 12, 13, 15, 16, 17, 19, 23, 25, 27, 29, 31, 32, 33, 35, 37, 41, 43, 45, 47, 49, 51, 53, 59, 61, 63, 64, 65, 67, 71, 73, 75, 77, 79, 81, 83, 87, 89, 91, 95, 97, 99, 101, 103, 107, 109, 113, 119, 121, 123, 125, 127 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,2 COMMENTS Sequence gives numbers n such that n - ( Sum_{i=1..j} k(i) ) are all distinct divisors of cototient(n) for all j <= z. LINKS PROG (Sage) def is_A196736(n): # inefficient, for reference purposes     k = lambda x: sum(1 for m in (1..n) if number_of_divisors(gcd(n, m))==x)     cototient_n = n-euler_phi(n)     z = number_of_divisors(cototient_n) if cototient_n > 0 else 0     v = [(n-sum(k(i) for i in (1..j))) for j in (1..z)]     return len(set(v)) == len(v) and all(vi.divides(cototient_n) for vi in v) # D. S. McNeil, Oct 14 2011 CROSSREFS Sequence in context: A284676 A187681 A107750 * A284946 A285901 A246716 Adjacent sequences:  A196733 A196734 A196735 * A196737 A196738 A196739 KEYWORD nonn AUTHOR Naohiro Nomoto, Oct 06 2011 STATUS approved

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

Last modified September 27 19:17 EDT 2022. Contains 357062 sequences. (Running on oeis4.)