OFFSET
1,1
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
Jean-Marie De Koninck, Those Fascinating Numbers, American Mathematical Society, 2009, page 27, entry 85.
EXAMPLE
84 is in the sequence since 84 is a hoax number: 84 = 2^2 * 3 * 7 and 8 + 4 = 2 + 3 + 7 = 12, and 85 = 84 + 1 is also a hoax number: 85 = 5 * 17 and 8 + 5 = 5 + 1 + 7 = 13.
MATHEMATICA
digitSum[n_] := Total @ IntegerDigits[n]; hoaxQ[n_] := CompositeQ[n] && Total[ digitSum /@ FactorInteger[n][[;; , 1]] ] == digitSum[n]; seq = {}; isHoax1 = hoaxQ[1]; Do[isHoax2 = hoaxQ[n]; If[isHoax1 && isHoax2, AppendTo[seq, n-1]]; isHoax1 = isHoax2, {n, 2, 25000}]; seq
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Amiram Eldar, Nov 24 2019
STATUS
approved