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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A088006 Abundance values which are +1 or -1 times a prime. 1
-2, -5, -2, 3, 2, -19, 19, -41, -7, -41, 17, 2, -109, -2, 7, -47, -271, 199, -127, 71, 2, -37, 499, 2, -71, 199, 353, -811, 1021, -929, 59, -457, -449, -163, -683, -157, 41, -751, 251, 2, -2161, -19, 401, 467, -61, 967, -631, -3659, -2777, 3391, -4421, 269, -2333, -1201, -4969, 4999, -1103, -2647, -1097, 269 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

Table of n, a(n) for n=1..60.

FORMULA

Solutions x to sigma[n]-2n=x where Abs[x] is a prime number.

EXAMPLE

n=18: sigma[18]=18+9+6+3+2+1=39, 2n=36, abundance=3, a prime;

n=25: sigma[25]=25+5+1=31, 2n=50, abundance=-19.

MATHEMATICA

ab[x_] := DivisorSigma[1, x]-2*x Do[If[PrimeQ[s=ab[n]], Print[s]], {n, 1, 10000}]

Select[Table[DivisorSigma[1, n]-2n, {n, 7000}], PrimeQ[Abs[#]]&] (* Harvey P. Dale, Aug 21 2011 *)

CROSSREFS

Cf. A000203, A000040, A077374, A087998, A088005.

Sequence in context: A049413 A102707 A134486 * A078311 A132743 A192885

Adjacent sequences:  A088003 A088004 A088005 * A088007 A088008 A088009

KEYWORD

sign

AUTHOR

Labos Elemer, Oct 18 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 | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy .

Last modified March 30 14:31 EDT 2017. Contains 284302 sequences.