A168573 Numbers requiring exactly one step to reach 14 using map n -> sum of largest digit of all divisors of n (A168239).

15, 34, 44, 106, 115, 134, 142, 155, 213, 214, 314, 321, 334, 404, 453, 515, 713, 1006, 1046, 1114, 1115, 1142, 1214, 1234, 1263, 1402, 1403, 1555, 1703, 1849, 2021, 2031, 2103, 2123, 2234, 2306, 2342, 2434, 2761, 3046, 3062, 3106, 3134, 3142, 3153, 3214

Offset

1,1

References

J. Earls, "Black Hole 14," Mathematical Bliss, Pleroma Publications, 2009, pages 18-22. ASIN: B002ACVZ6O

Links

Charles R Greathouse IV, Table of n, a(n) for n = 1..10000

Mathematica

Select[Range[15, 2200], Total[Max[IntegerDigits[#]]&/@Divisors[#]]==14&] (* Harvey P. Dale, May 22 2012 *)

Prog

(PARI) is(n)=sumdiv(n, d, vecmax(eval(Vec(Str(d)))))==14&&n>14 \\ Charles R Greathouse IV, May 22 2012

Crossrefs

Sequence in context: A219855 A270072 A085803 * A139578 A345733 A297729

Adjacent sequences: A168570 A168571 A168572 * A168574 A168575 A168576

Keyword

base,nonn

Author

Jason Earls, Nov 30 2009

Status

approved