A227754 The average of primes dividing n and n+1 is the same.

459, 2023, 5063, 11111, 87615, 92080, 224720, 268191, 390224, 524799, 535601, 680096, 758848, 1144375, 1235168, 1303169, 1319297, 1366000, 1525568, 2570291, 2985620, 3085874, 3090969, 3297096, 4100071, 4507524, 5695742, 5812158, 5869968, 6324725, 6540544

Offset

1,1

Comments

Up to 10^13 there are no consecutive numbers in the sequence.

Links

Giovanni Resta, Table of n, a(n) for n = 1..1000

Example

87615 is in the sequence because 87615 = 3^3*5*11*59, 87616 = 2^6*37^2 and (3+5+11+59)/4 = (2+37)/2.

Mathematica

avep[n_] := Mean[First /@ FactorInteger[n]]; Select[Range[2, 10^5], avep[#] == avep[#+1] &]

Crossrefs

Cf. A227755.

Sequence in context: A055162 A055159 A124694 * A253527 A183964 A221816

Adjacent sequences: A227751 A227752 A227753 * A227755 A227756 A227757

Keyword

nonn,easy

Author

Giovanni Resta, Jul 26 2013

Status

approved