OFFSET
1,1
COMMENTS
These numbers are related to the taxicab number 1729. This is why they might be called "additive Hardy-Ramanujan numbers".
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..1000
Viorel Nitica, About some relatives of the taxicab numbers, submitted to Journal of Integer Sequences, (2018). [Where these numbers are introduced.]
Viorel Niţică, Jeroz Makhania, About the Orbit Structure of Sequences of Maps of Integers, Symmetry (2019), Vol. 11, No. 11, 1374.
EXAMPLE
For k = 11 the sum of the digits is 2 and the multiplier is 5: 2 * 5 = 10 and 10 + 01 = 11.
For k = 747 the sum of the digits is 18 and the multiplier is 7: 18 * 7 = 126 and 126 + 621 = 747.
MATHEMATICA
Block[{k, d, j}, Reap[Do[k = 1; d = Total@ IntegerDigits[i]; While[Nor[k > i, Set[j, # + IntegerReverse@ #] == i &[d k]], k++]; If[j == i, Sow[{i, k}]], {i, 720}]][[-1, 1, All, 1]] ] (* Michael De Vlieger, Jan 28 2020 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Viorel Nitica, May 26 2018
STATUS
approved