|
|
A161952
|
|
Base-15 Armstrong or narcissistic numbers (written in base 10).
|
|
13
|
|
|
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 113, 128, 2755, 3052, 5059, 49074, 49089, 386862, 413951, 517902, 15219156, 18605333, 38009273, 40082196, 40310423, 40868227, 47527794, 100128060, 100128061, 100128188, 104189152, 105464820
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
Whenever 15|a(n) (n = 32, 36, 40, 86, 100, 135, 143, 194, 197, 201), then a(n+1) = a(n) + 1. Zero also satisfies the definition (n = Sum_{i=1..k} d[i]^k where d[1..k] are the base-15 digits of n), but this sequence only considers positive terms. - M. F. Hasler, Nov 22 2019
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[Range[10^7], # == Total[IntegerDigits[#, 15]^IntegerLength[#, 15]] &] (* Michael De Vlieger, Nov 04 2020 *)
|
|
PROG
|
(PARI) select( is_A161952(n)={n==vecsum([d^#n|d<-n=digits(n, 15)])}, [1..10^5]) \\ M. F. Hasler, Nov 22 2019
|
|
CROSSREFS
|
In other bases: A010344 (base 4), 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), A161953 (base 16).
|
|
KEYWORD
|
base,fini,full,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|