login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A019506 Hoax numbers: composite numbers whose digit-sum equals the sum of the digit-sums of its distinct prime factors. 14
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; text; 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]

MATHEMATICA

Select[Range[2, 1000], !PrimeQ[#]&&Total[Flatten[IntegerDigits/@ Transpose[ FactorInteger[#]][[1]]]]==Total[IntegerDigits[#]]&] (* Harvey P. Dale, Feb 24 2013 *)

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)

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy .

Last modified July 25 04:48 EDT 2017. Contains 289779 sequences.