A269316 Intersection of A269315 and A269314.
15, 24, 30, 258, 372, 645, 2076, 2268, 2385, 2505, 3045, 3090, 3120, 3336, 3366, 3450, 3555, 3678, 4122, 4143, 4233, 4302, 4497, 5118, 5202, 5586, 6717, 6855, 7662, 7731, 8082, 8130, 8340, 9177, 9648, 9759, 9795, 10080, 10242, 10545, 10830, 10926, 11001, 11130
Offset: 1
Examples
15 = 1+4 + 1+3 + 1+2 + 1+1 + 1+0 = 1+6 + 1+7; 24 = 2+3 + 2+2 + 2+1 + 2+0 + 1+9 = 2+5 + 2+6 + 2+7; 30 = 2+9 + 2+8 + 2+7 = 3+1 + 3+2 + 3+3 + 3+4 + 3+5.
Links
- Paolo P. Lava, Table of n, a(n) for n = 1..400
Programs
-
Maple
P:= proc(q) local a, b, c, k, n; for n from 1 to q do a:=0; b:=0; while a
-
Mathematica
A269314 = Select[Range[11130], (x = # + 1; s = Total[IntegerDigits[x]]; While[s < #, x++; s += Total[IntegerDigits[x]]]; s == #) &]; A269315 = Select[Range[3,11130], (x = # - 1; s = Total[IntegerDigits[x]]; While[s < #, x--; s += Total[IntegerDigits[x]]]; s == #) &]; Intersection[A269314, A269315] (* Robert Price, May 22 2019 *)
Extensions
Name corrected by Robert Price, May 22 2019
Comments