The On-Line Encyclopedia of Integer Sequences (OEIS)

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

A010346

Base-5 Armstrong or narcissistic numbers (written in base 10).
(history; published version)

#23 by Susanna Cuyler at Fri Jan 17 10:41:17 EST 2020

STATUS

proposed

approved

#22 by Michel Marcus at Fri Jan 17 01:13:08 EST 2020

STATUS

editing

proposed

#21 by Michel Marcus at Fri Jan 17 01:13:04 EST 2020

LINKS

D. T. Winter, <a href="http://ftp.cwi.nl/dik/Armstrong">Table of Armstrong Numbers</a>

STATUS

proposed

editing

#20 by Jon E. Schoenfield at Fri Jan 17 00:26:09 EST 2020

STATUS

editing

proposed

#19 by Jon E. Schoenfield at Fri Jan 17 00:26:06 EST 2020

NAME

Base -5 Armstrong or narcissistic numbers (written in base 10).

COMMENTS

Zero would also satisfy the definition as the other single -digit terms, but here only positive numbers are considered. - M. F. Hasler, Nov 20 2019

PROG

(PARI) A010346=select( is_A010346(n)={n==vecsum([d^#n|d<-n=digits(n, 5)])}, [0..9999]) \\ NB: this This yields only terms < 10^4 (i.e., all but the last 3 terms), for illustration of is_A010346(). In older versions of PARI, use {n==sum(i=1, #n=digits(n, 5), n[i]^#n)}. - M. F. Hasler, Nov 20 2019

AUTHOR

N. J. A. Sloane.

STATUS

approved

editing

#18 by M. F. Hasler at Mon Nov 25 18:04:20 EST 2019

STATUS

editing

approved

#17 by M. F. Hasler at Mon Nov 25 18:03:13 EST 2019

PROG

(PARI) A010346=select( {is_A010346(n)={n==vecsum([d^#n|d<-n=digits(n, 5)])}, [0..9999]) \\ NB: this yields only terms < 10^4, (i.e., all but the last 3 terms), for illustration of is_A010346(). Uses In older versions of PARI/GP v.2.12 or later, use {n==sum(i=1, #n=digits(n, 5), n[i]^#n)}. - M. F. Hasler, Nov 20 2019

STATUS

approved

editing

#16 by M. F. Hasler at Mon Nov 25 17:25:21 EST 2019

STATUS

editing

approved

#15 by M. F. Hasler at Mon Nov 25 16:29:56 EST 2019

PROG

(PARI) A010346=select( {is_A010346(n)=n==vecsum([d^#n|d<-n=digits(n, 5)])}, [0..9999]) \\ NB: this yields only terms < 10^4, for illustration of is_A010346(). Uses PARI/GP v.2.12 or later. - M. F. Hasler, Nov 20 2019

STATUS

approved

editing

#14 by M. F. Hasler at Wed Nov 20 20:56:58 EST 2019

STATUS

editing

approved