login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A015863 Numbers n such that sigma(n) = sigma(n + 4). 15
51, 66, 115, 220, 319, 1003, 2585, 4024, 4183, 4195, 5720, 5826, 5959, 8004, 8374, 11659, 12367, 12561, 13581, 14338, 15365, 16116, 17840, 18718, 20541, 25130, 29393, 30170, 32665, 36516, 39913, 40660, 42423, 42922, 47841, 49762 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

REFERENCES

J.-M. De Koninck, Ces nombres qui nous fascinent, Entry 51, p. 19, Ellipses, Paris 2008.

LINKS

Paolo P. Lava and Donovan Johnson, Table of n, a(n) for n = 1..1000 (first 130 terms from Paolo P. Lava)

A. Weingartner, On the Solutions of sigma(n) = sigma(n+k), Journal of Integer Sequences, Vol. 14 (2011), #11.5.5.

MAPLE

A015863:=proc(q) local n;

for n from 1 to q do if sigma(n+4)=sigma(n) then print(n); fi; od; end:

A015863 (10^10); # Paolo P. Lava, Mar 25 2013

MATHEMATICA

Select[Range[60000], DivisorSigma[1, #]==DivisorSigma[1, # + 4] &] (* Vincenzo Librandi, Mar 10 2014 *)

PROG

(PARI) is(n)=sigma(n)==sigma(n+4) \\ Charles R Greathouse IV, Mar 09 2014

CROSSREFS

Cf. A002961, A007373, A015861, A015865, A015866, A015867, A015876, A015877, A015880, A015881, A015882, A015883, A181647.

Sequence in context: A216055 A034819 A118147 * A232105 A225801 A242045

Adjacent sequences:  A015860 A015861 A015862 * A015864 A015865 A015866

KEYWORD

nonn

AUTHOR

Robert G. Wilson v

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 June 2 11:35 EDT 2020. Contains 334771 sequences. (Running on oeis4.)