|
| |
|
|
A019506
|
|
Hoax numbers: composite numbers whose digit-sum equals the sum of the digit-sums of its distinct prime factors.
|
|
13
| |
|
|
22, 58, 84, 85, 94, 136, 160, 166, 202, 234, 250, 265, 274, 308, 319, 336, 346, 355, 361, 364, 382, 391, 424, 438, 454, 456, 476, 483, 516, 517, 526, 535, 562, 627, 634, 644, 645, 650, 654, 660, 663, 690, 702, 706, 732, 735, 762, 778, 855, 860
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
LINKS
| Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
Eric Weisstein's World of Mathematics, Hoax Number
|
|
|
FORMULA
| A007953(a(n)) = sum(A007953(A027748(a(n),k)): k=1..A001221(a(n))) and A066247(a(n)) = 1. [Reinhard Zumkeller, Dec 19 2011]
|
|
|
PROG
| (Haskell)
a019506 n = a019506_list !! (n-1)
a019506_list = [x | x <- a002808_list,
a007953 x == sum (map a007953 (a027748_row x))]
-- Reinhard Zumkeller, Dec 19 2011
|
|
|
CROSSREFS
| Cf. A006753.
Cf. A002808, A027748, A012221, A007953, A050223, A202393, A202387.
Sequence in context: A088820 A058097 A131878 * A202387 A044124 A044505
Adjacent sequences: A019503 A019504 A019505 * A019507 A019508 A019509
|
|
|
KEYWORD
| nonn,base
|
|
|
AUTHOR
| Mario Velucchi (mathchess(AT)velucchi.it)
|
| |
|
|
