A079239 Numbers n in which the last K digits of n form an integer divisible by K^3, for K = 1, 2, ..., M, where M is the number of digits in n.

1, 2, 3, 4, 5, 6, 7, 8, 9, 16, 24, 32, 40, 48, 56, 64, 72, 80, 88, 96, 108, 216, 324, 432, 540, 648, 756, 864, 972, 1216, 2432, 3648, 4864, 8000, 9216, 10000, 18000, 20000, 28000, 30000, 38000, 40000, 48000, 50000, 58000, 60000, 68000, 70000, 78000, 80000, 88000, 90000, 98000, 108000

Offset

1,2

Links

Table of n, a(n) for n=1..54.

Example

a(33)=4864 because 4 is divisible by 1^3, 64 by 2^3, 864 by 3^3, 4864 by 4^3.

Mathematica

okQ[n_]:=Module[{idn=IntegerDigits[n]}, And@@(Divisible[#[[2]], #[[1]]^3]&/@Table[{i, FromDigits[Take[idn, -i]]}, {i, Length[idn]}])]
Select[Range[200000], okQ] (* Harvey P. Dale, Dec 10 2010 *)

Crossrefs

Sequence in context: A032871 A023764 A032905 * A079041 A133059 A132722

Adjacent sequences: A079236 A079237 A079238 * A079240 A079241 A079242

Keyword

base,nonn

Author

Sudipta Das (juitech(AT)vsnl.net), Feb 03 2003

Extensions

Additional terms from Harvey P. Dale, Dec 10 2010

Status

approved