cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-8 of 8 results.

A005188 Armstrong (or pluperfect, or Plus Perfect, or narcissistic) numbers: m-digit positive numbers equal to sum of the m-th powers of their digits.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 9, 153, 370, 371, 407, 1634, 8208, 9474, 54748, 92727, 93084, 548834, 1741725, 4210818, 9800817, 9926315, 24678050, 24678051, 88593477, 146511208, 472335975, 534494836, 912985153, 4679307774, 32164049650, 32164049651
Offset: 1

Views

Author

Keywords

Comments

A finite sequence, the 88th and last term being 115132219018763992565095597973971522401.
Let k = d_1 d_2 ... d_n in base 10; then k is in the sequence iff k = Sum_{i=1..n} d_i^n.
These are the fixed points in the "Recurring Digital Invariant Variant" described in A151543.
a(15) = A229381(3) = 8208 is the "Simpsons' narcissistic number".
If a(n) is a multiple of 10, then a(n+1) = a(n) + 1, and if a(n) == 1 (mod 10) then a(n-1) = a(n) - 1 except for n = 1, cf. Examples. - M. F. Hasler, Oct 18 2018
Named after Michael Frederick Armstrong (1941-2020), who used these numbers in his computing class at the University of Rochester in the mid 1960's. - Amiram Eldar, Mar 09 2024

Examples

			153 = 1^3 + 5^3 + 3^3,
8208 = 8^4 + 2^4 + 0^4 + 8^4,
4210818 = 4^7 + 2^7 + 1^7 + 0^7 + 8^7 + 1^7 + 8^7.
The eight terms 370, 24678050, 32164049650, 4338281769391370, 3706907995955475988644380, 19008174136254279995012734740, 186709961001538790100634132976990 and 115132219018763992565095597973971522400 end in a digit zero, therefore their successor a(n) + 1 is the next term a(n+1). This also yields the last term of the sequence. The initial a(1) = 1 is the only term ending in a digit 1 not preceded by a(n) - 1. - _M. F. Hasler_, Oct 18 2018
		

References

  • Jean-Marie De Koninck, Ces nombres qui nous fascinent, Entry 88, pp. 30-31, Ellipses, Paris 2008.
  • Lionel E. Deimel, Jr. and Michael T. Jones, Finding Pluperfect Digital Invariants: Techniques, Results and Observations, J. Rec. Math., 14 (1981), 87-108.
  • Jean-Pierre Lamoitier, Fifty Basic Exercises. SYBEX Inc., 1981.
  • Clifford A. Pickover, A Passion for Mathematics, Wiley, 2005; see p. 68.
  • Alfred S. Posamentier, Numbers: Their Tales, Types, and Treasures, Prometheus Books, 2015, pp. 242-244.
  • Joe Roberts, The Lure of the Integers, The Mathematical Association of America, 1992, page 36.
  • N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Crossrefs

Similar to but different from A023052.
Cf. A151543.
Cf. A010343 to A010354 (bases 4 to 9). - R. J. Mathar, Jun 28 2009

Programs

  • Maple
    filter:= proc(k) local d;
    d:= 1 + ilog10(k);
    add(s^d, s=convert(k,base,10)) = k
    end proc:
    select(filter, [$1..10^6]); # Robert Israel, Jan 02 2015
  • Mathematica
    f[n_] := Plus @@ (IntegerDigits[n]^Floor[ Log[10, n] + 1]); Select[ Range[10^7], f[ # ] == # &] (* Robert G. Wilson v, May 04 2005 *)
    Select[Range[10^7],#==Total[IntegerDigits[#]^IntegerLength[#]]&] (* Harvey P. Dale, Sep 30 2011 *)
  • PARI
    is(n)=my(v=digits(n));sum(i=1,#v,v[i]^#v)==n \\ Charles R Greathouse IV, Nov 20 2012
    
  • PARI
    select( is_A005188(n)={n==vecsum([d^#n|d<-n=digits(n)])}, [0..9999]) \\ M. F. Hasler, Nov 18 2019
    
  • Python
    from itertools import combinations_with_replacement
    A005188_list = []
    for k in range(1,10):
        a = [i**k for i in range(10)]
        for b in combinations_with_replacement(range(10),k):
            x = sum(map(lambda y:a[y],b))
            if x > 0 and tuple(int(d) for d in sorted(str(x))) == b:
                A005188_list.append(x)
    A005188_list = sorted(A005188_list) # Chai Wah Wu, Aug 25 2015

Extensions

32164049651 from Amit Munje (amit.munje(AT)gmail.com), Oct 07 2006
In order to agree with the Definition, first comment modified by Jonathan Sondow, Jan 02 2015
Comment in name moved to comment section and links edited by M. F. Hasler, Oct 18 2018
"Positive" added to definition by N. J. A. Sloane, Nov 18 2019

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

Original entry on oeis.org

1, 2, 3, 28, 29, 35, 43, 55, 62, 83, 243
Offset: 1

Views

Author

Keywords

Crossrefs

Cf. A010343 (a(n) written in base 4).
In other bases: A010346 (base 5), A010348 (base 6), A010350 (base 7), A010354 (base 8), A010353 (base 9), A005188 (base 10), A161948 (base 11), A161949 (base 12), A161950 (base 13), A161951 (base 14), A161952 (base 15), A161953 (base 16).

Programs

  • PARI
    A010344=select( n->n==vecsum([d^#n|d<-n=digits(n,4)]), [0..333]) \\ M. F. Hasler, Nov 18 2019

Extensions

Edited by Joseph Myers, Jun 28 2009

A010345 Base-5 Armstrong or narcissistic numbers, written in base 5.

Original entry on oeis.org

1, 2, 3, 4, 23, 33, 103, 433, 2124, 2403, 3134, 124030, 124031, 242423, 434434444, 1143204434402, 14421440424444
Offset: 1

Views

Author

Keywords

Comments

Also called Perfect Digital Invariant (PDI). When a(n) ends in 0, then a(n+1) = a(n) + 1 is also in the sequence, but in this base this only happens once. Zero would also satisfy the definition (n = Sum_{i=1..k} d[i]^k where d[1..k] are the base-5 digits of n), like the other single-digit terms. - M. F. Hasler, Nov 18 2019
The property of being an Armstrong number is an arithmetic property (like the number of divisors function) and is usually restricted to positive numbers. - N. J. A. Sloane, Nov 29 2019

Crossrefs

Cf. A010346 (a(n) written in base 10).
In other bases: A010343 (base 4), A010347 (base 6), A010349 (base 7), A010351 (base 8), A010352 (base 9), A005188 (base 10).

Programs

Extensions

Edited by Joseph Myers, Jun 28 2009

A010347 Base-6 Armstrong or narcissistic numbers, written in base 6.

Original entry on oeis.org

1, 2, 3, 4, 5, 243, 514, 14340, 14341, 14432, 23520, 23521, 44405, 435152, 5435254, 12222215, 555435035, 1053025020422, 1053122514003, 1435403205450, 1435403205451, 1450005114454, 2135254510352, 2145555022413, 2500150125455, 133024510545125
Offset: 1

Views

Author

Keywords

Comments

From M. F. Hasler, Nov 18 2019: (Start)
Whenever a(n) ends in 0 (n = 8, 11, 20, 28), then a(n+1) = a(n) + 1 also satisfies the definition.
Like the other single-digit terms, zero would satisfy the definition (n = Sum_{i=1..k} d[i]^k where d[1..k] are the base 6 digits of n), but here only positive numbers are considered. (End)

Crossrefs

Cf. A010348 (a(n) written in base 10).
In other bases: A010343 (base 4), A010345 (base 5), A010349 (base 7), A010351 (base 8), A010352 (base 9), A005188 (base 10).

Programs

Extensions

Edited by Joseph Myers, Jun 28 2009

A010349 Base-7 Armstrong or narcissistic numbers, written in base 7.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 13, 34, 44, 63, 250, 251, 305, 505, 12205, 12252, 13350, 13351, 15124, 36034, 205145, 1424553, 1433554, 3126542, 4355653, 6515652, 125543055, 161340144, 254603255, 336133614, 542662326, 565264226, 13210652042, 13213641035, 13261421245, 23662020022, 52112660266
Offset: 1

Views

Author

Keywords

Comments

From M. F. Hasler, Nov 20 2019: (Start)
Like the other single-digit terms, zero would satisfy the definition (n = Sum_{i=1..k} d[i]^k where d[1..k] are the base 7 digits of n), but here only positive numbers are considered.
Whenever a(n) ends in zero (n = 11, 17, 22, 38, 57), then a(n+1) = a(n) + 1 is also a solution to the above equation. (End)

Crossrefs

Cf. A010350 (a(n) written in base 10).
In other bases: A010343 (base 4), A010345 (base 5), A010347 (base 6), A010351 (base 8), A010352 (base 9), A005188 (base 10).

Programs

Extensions

Edited by Joseph Myers, Jun 28 2009

A010351 Base-8 Armstrong or narcissistic numbers, written in base 8.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 24, 64, 134, 205, 463, 660, 661, 40663, 42710, 42711, 60007, 62047, 636703, 3352072, 3352272, 3451473, 4217603, 7755336, 16450603, 63717005, 233173324, 3115653067, 4577203604, 61777450236, 147402312024
Offset: 1

Views

Author

Keywords

Comments

Whenever a term ends in 0, then a(n+1) = a(n) + 1 is also a term. Like the other single-digit terms, zero would satisfy the definition (n = Sum_{i=1..k} d[i]^k when d[1..k] are the base-8 digits of n), but here only positive numbers are considered. - M. F. Hasler, Nov 18 2019

Examples

			432 = 660_8 (= 6*8^2 + 6*8^1 + 0*8^0), and 6^3 + 6^3 + 0^3 = 432, therefore 660 is in the sequence. It's easy to see that 432 + 1 then also satisfies the equation, as for any term that is a multiple of 8. - _M. F. Hasler_, Nov 21 2019
		

Crossrefs

Cf. A010354 (a(n) written in base 10).
In other bases: A010343 (base 4), A010345 (base 5), A010347 (base 6), A010349 (base 7), A010352 (base 9), A005188 (base 10).

Programs

Extensions

Edited by Joseph Myers, Jun 28 2009

A010352 Base-9 Armstrong or narcissistic numbers, written in base 9.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 45, 55, 150, 151, 570, 571, 2446, 12036, 12336, 14462, 2225764, 6275850, 6275851, 12742452, 356614800, 356614801, 1033366170, 1033366171, 1455770342, 8463825582, 131057577510, 131057577511
Offset: 1

Views

Author

Keywords

Comments

From M. F. Hasler, Nov 18 2019: (Start)
Like the other single-digit terms, zero would satisfy the definition (n = Sum_{i=1..k} d[i]^k when d[1..k] are the base-9 digits of n), but here only positive numbers are considered.
Terms a(n+1) = a(n) + 1 (n = 11, 13, 20, 23, 25, 29, 33, 48, 51, 57) correspond to solutions a(n) that are multiples of 9, in which case a(n) + 1 is also a solution. (End)

Examples

			126 = 150_9 (= 1*9^2 + 5*9^1 + 0*9^0) = 1^3 + 5^3 + 0^3. It is easy to see that 126 + 1 then also satisfies this relation, as for all other terms that are multiples of 9. - _M. F. Hasler_, Nov 21 2019
		

Crossrefs

Cf. A010353 (a(n) written in base 10).
In other bases: A010343 (base 4), A010345 (base 5), A010347 (base 6), A010349 (base 7), A010351 (base 8), A005188 (base 10).

Programs

Extensions

Edited by Joseph Myers, Jun 28 2009

A329817 a(n) is the maximum number of digits that must be checked to obtain all Armstrong numbers in base n.

Original entry on oeis.org

2, 7, 13, 20, 28, 35, 43, 52, 60, 69, 78, 87, 97, 106, 116, 126, 136, 146, 156, 167, 177, 188, 199, 209, 220, 231, 242, 253, 264, 276, 287, 298, 310, 321, 333, 345, 356, 368, 380, 392, 404, 416, 428, 440, 452, 464, 476, 489, 501, 513, 526, 538, 551, 563, 576, 588
Offset: 2

Views

Author

Michel Marcus, Nov 22 2019

Keywords

Crossrefs

Cf. A010343 (base 4), A010345 (base 5), A010347 (base 6), A010349 (base 7), A010351 (base 8), A010352 (base 9), A005188 (base 10).

Programs

  • C
    See Links section.
  • Mathematica
    a[b_] := Floor[x /. NSolve[(b-1)^x x == b^(x-1) && x>1, x, Reals][[1]]]; a /@ Range[2, 57] (* Giovanni Resta, Nov 22 2019 *)

Extensions

More terms from Giovanni Resta, Nov 22 2019
Showing 1-8 of 8 results.