A099631 Numbers n such that (sigma(n-2)+sigma(n+2))/2 = sigma(n).
5, 8, 32, 44, 116, 184, 356, 764, 815, 1004, 1012, 1205, 1338, 1345, 1436, 2636, 2876, 3126, 3644, 5156, 5305, 5804, 6236, 7192, 7542, 7556, 8564, 9356, 9404, 10196, 10362, 10904, 11276, 11876, 13436, 16375, 17564, 17636, 20156, 25316, 25964
Offset: 1
Keywords
Examples
n=5, {n-2,n+2}={3,7}, sigma(3)=4, sigma(7)=8, and sigma(5)=6=(4+8)/2.
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Crossrefs
Cf. A000203.
Programs
-
Maple
with(numtheory); A099631:=n->`if`(sigma(n)=(sigma(n-2)+sigma(n+2))/2, n, NULL); # Wesley Ivan Hurt, Feb 03 2014
-
Mathematica
Flatten[Position[Partition[DivisorSigma[1,Range[30000]],5,1],?((Last[ #]+ First[ #])/2==#[[3]]&),{1},Heads->False]]+2 (* _Harvey P. Dale, Feb 01 2015 *)
-
PARI
isok(n) = (sigma(n-2) + sigma(n+2))/2 == sigma(n); \\ Michel Marcus, Dec 30 2013