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

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A241004 Numbers n such that anti-phi(sigma*(n)) = n, where anti-phi is A066452 and sigma* is the sum of anti-divisors of n (A066417). 0
90, 137, 162, 581, 714, 773, 3735, 4557, 71028 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,1
COMMENTS
Like A001229 but using anti-phi(n) (A066452) and sigma*(n) (A066417).
LINKS
EXAMPLE
90 is in the sequence: Anti-divisors of 90 are 4, 12, 20, 36, 60 and their sum is 132. Anti-phi of 132 is 90.
MAPLE
isA241004 := proc(n)
simplify( n = A066452(A066417(n))) ;
end proc:
for n from 1 do
if isA241004(n) then
printf("%d\n", n) ;
end if;
end do: # R. J. Mathar, Aug 07 2014
PROG
(PARI) sad(n) = my(k); if(n>1, k=valuation(n, 2); sigma(2*n+1)+sigma(2*n-1)+sigma(n/2^k)*2^(k+1)-6*n-2, 0);
antidiv(n) = {my(v = []); for (k=2, n-1, if (abs((n % k) - k/2) < 1, v = concat(v, k)); ); v; }
antiphi(n) = {my(vad = antidiv(n)); my(nbad = 0); for (j=1, n-1, isad = 1; for (k=1, #vad, if ((j % vad[k]) == 0, isad = 0; break); ); nbad += isad; ); nbad; }
isok(n) = n == antiphi(sad(n)); \\ Michel Marcus, Feb 25 2016
CROSSREFS
Sequence in context: A352231 A249553 A125010 * A294310 A048705 A119895
KEYWORD
nonn,more
AUTHOR
Paolo P. Lava, Aug 07 2014
EXTENSIONS
a(9) from Michel Marcus, Feb 25 2016
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.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 3 00:46 EST 2024. Contains 370499 sequences. (Running on oeis4.)