OFFSET
1,2
COMMENTS
The subsequence of multiples of 11 begins: 0, 11, 22, 33, 44, 55, 66, 77, 88, 99, 110, 220, 330, 440...
The subsequence of primes begins: 11, 101, 211, 431, 523, 541, 743, 761, 853, ... (see A156307).
FORMULA
If decimal expansion of n is x1 x2 ... xk then x1 - x2 - ... - xk = 0.
MATHEMATICA
fQ[n_] := Module[{d = IntegerDigits[n]}, d[[1]] == Total[Rest[d]]]; Select[Range[0, 1000], fQ] (* T. D. Noe, Jan 02 2013 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Dario Piazzalunga, Jan 02 2013
EXTENSIONS
Definition edited by Michel Marcus, Oct 26 2014
STATUS
approved