A128546 Inrepfigit (INverse REPetitive FIbonacci-like diGIT) numbers (or Htiek numbers).
17, 21, 25, 42, 63, 84, 143, 286, 2355, 5821, 6618, 11709, 12482, 33747, 39571, 129109, 466957, 1162248, 1565166, 1968084, 3636638, 3853951, 4898376, 6065280, 13443745, 13933175, 17118698, 22421197, 24153462377
Offset: 1
Examples
42 is in the sequence because the terms of the sequence it creates are 2, 4, 6, 10, 16, 26, 42, ...
Programs
-
Mathematica
iKeithQ[n_Integer] := Module[{b = Reverse[IntegerDigits[n]], s, k = 0}, s = Total[b]; While[s < n, AppendTo[b, s]; k++; s = 2*s - b[[k]]]; s == n]; Select[Range[10, 100000], iKeithQ] (* T. D. Noe, Mar 15 2011 *)
Comments