The On-Line Encyclopedia of Integer Sequences (OEIS)

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

Revision History for A135210

(Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A135210

Numbers n such that Sum_digits(n) + Sum_digits(n+1) = Sum_digits(2*n+1).
(history; published version)

#12 by Harvey P. Dale at Mon Jul 06 18:30:45 EDT 2020

STATUS

editing

approved

#11 by Harvey P. Dale at Mon Jul 06 18:30:42 EDT 2020

MATHEMATICA

Select[Range[0, 1000], Total[IntegerDigits[#]] + Total[IntegerDigits[# + 1]] == Total[IntegerDigits[ 2*# + 1]] &] (* _G. C. Greubel_, Oct 01 2016 *)

Total[IntegerDigits[2*# + 1]] &] (* G. C. Greubel, Oct 01 2016 *)

STATUS

approved

editing

#10 by Charles R Greathouse IV at Sat Oct 01 15:45:06 EDT 2016

STATUS

editing

approved

#9 by Charles R Greathouse IV at Sat Oct 01 15:45:03 EDT 2016

PROG

(PARI) is(n)=my(s=sumdigits, t); t=s(2*n+1)-s(n); t>0 && t==s(n+1) \\ Charles R Greathouse IV, Oct 01 2016

STATUS

proposed

editing

#8 by G. C. Greubel at Sat Oct 01 13:27:35 EDT 2016

STATUS

editing

proposed

#7 by G. C. Greubel at Sat Oct 01 13:27:27 EDT 2016

NAME

Numbers n such that Sum_digits(n) + Sum_digits(n+1) = Sum_digits(n+2*n+1).

LINKS

G. C. Greubel, <a href="/A135210/b135210.txt">Table of n, a(n) for n = 1..2000</a>

MATHEMATICA

Select[Range[0, 1000], Total[IntegerDigits[#]] + Total[IntegerDigits[# + 1]] ==

Total[IntegerDigits[2*# + 1]] &] (* G. C. Greubel, Oct 01 2016 *)

STATUS

approved

editing

#6 by Charles R Greathouse IV at Tue Sep 25 16:06:04 EDT 2012

STATUS

editing

approved

#5 by Charles R Greathouse IV at Tue Sep 25 16:06:00 EDT 2012

OFFSET

0,1,3

STATUS

approved

editing

#4 by Charles R Greathouse IV at Fri Aug 24 10:50:00 EDT 2012

AUTHOR

_Paolo P. Lava & _ and _Giorgio Balzarotti (paoloplava(AT)gmail.com), _, Dec 18 2007

Discussion

Fri Aug 24

10:50

OEIS Server: https://oeis.org/edit/global/1825

#3 by T. D. Noe at Wed Sep 28 20:49:44 EDT 2011

AUTHOR

Paolo P. Lava & Giorgio Balzarotti (pplpaoloplava(AT)splgmail.atcom), Dec 18 2007

Discussion

Wed Sep 28

20:49

OEIS Server: https://oeis.org/edit/global/96