OFFSET
1,2
COMMENTS
From Michel Marcus, Aug 18 2015: (Start)
Integers m such that m and m+1 are in the sequence: 1, 2, 3, 4, 5, 6, 7, 8, 9, 224, 440, 2046, 3604, 4255, 6255, 10511, 11190, ...
Integers m such that m, m+1 and m+2 are in the sequence: 1, 2, 3, 4, 5, 6, 7, 8, 140607, 411904, 1099448, 1101150, 2109074, 2110158, ...
(End)
LINKS
Paolo P. Lava, Table of n, a(n) for n = 1..10000
EXAMPLE
For m=132, r=3, 132/(1*3+3*2+2*1)=12, so m=132 belongs to the sequence.
MATHEMATICA
Select[Range[1000], Mod[#, Total[ IntegerDigits[#] Reverse@ Range@ IntegerLength@ #]] == 0 &] (* Giovanni Resta, Aug 18 2015 *)
PROG
(PARI) isok(n) = {my(d = digits(n)); ! (n % sum(kk=1, #d, d[kk]*(#d-kk+1))); } \\ Michel Marcus, Aug 18 2015
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Ctibor O. Zizka, Sep 07 2010
STATUS
approved