The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A039945 Maris-McGwire numbers(2): numbers k such that f(k) = f(k+1), where f(k) = sum of digits of k + sum of digits of the distinct prime factors of k. 3
 3, 12, 14, 45, 61, 118, 122, 124, 137, 143, 152, 213, 224, 225, 242, 273, 277, 356, 373, 390, 392, 398, 421, 428, 455, 457, 460, 462, 464, 510, 526, 537, 560, 590, 607, 621, 673, 680, 692, 746, 782, 797, 804, 818, 820, 866, 878, 922, 939, 944, 965, 980, 985 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 LINKS Amiram Eldar, Table of n, a(n) for n = 1..10000 MATHEMATICA ds[n_] := Plus @@ IntegerDigits[n]; f[n_] := ds[n] + Total[ds /@ FactorInteger[n][[;; , 1]]]; s = {}; f1 = 1; Do[f2 = f[n]; If[f1 == f2, AppendTo[s, n-1]]; f1 = f2, {n, 2, 1000}]; s (* Amiram Eldar, Nov 24 2019 *) SequencePosition[Flatten[Table[Total[IntegerDigits[n]]+Total[Flatten[IntegerDigits/@FactorInteger[n][[All, 1]]]], {n, 1000}]], {x_, x_}][[All, 1]](* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jan 09 2021 *) CROSSREFS Cf. A045759. Sequence in context: A242130 A286386 A032918 * A227302 A201273 A221920 Adjacent sequences: A039942 A039943 A039944 * A039946 A039947 A039948 KEYWORD nonn,base AUTHOR STATUS approved

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

Last modified March 20 08:43 EDT 2023. Contains 361364 sequences. (Running on oeis4.)