|
%I #18 Jun 28 2012 17:40:26
%S 197802,296703,395604,494505,593406,692307,791208,890109,989010,
%T 197802197802,296703296703,395604395604,494505494505,593406593406,
%U 692307692307,791208791208,890109890109,989010989010,197802197802197802,296703296703296703,395604395604395604
%N Numbers n with the property that cyclically right-shifting by 2 positions divides n by 9 (leading 0's omitted).
%H Alois P. Heinz, <a href="/A213817/b213817.txt">Table of n, a(n) for n = 1..500</a>
%H Wikipedia, <a href="http://en.wikipedia.org/wiki/Transposable_integer">Transposable integer</a>
%F a(n) = 9/91*(2+((n-1) mod 9))*(10^(6*floor((n+8)/9))-1). - _Alois P. Heinz_, Jun 28 2012
%e 197802 belongs to this sequence, since 21978 is obtained by moving the two least significant digits "02" to the front and 197802/9 = 21978.
%p a:= proc(n) local h;
%p 9/91*(2+irem(n-1, 9, 'h'))*(10^(6*(h+1))-1)
%p end:
%p seq (a(n), n=1..30); # _Alois P. Heinz_, Jun 28 2012
%t lst = {}; Do[d = IntegerDigits[n]; m = FromDigits@Take[d, -2]*10^(IntegerLength[n] - 2) + FromDigits@Drop[d, -2]; If[n/9 == m, AppendTo[lst, n]], {n, 18, 10^6, 9}]; lst
%K base,nonn
%O 1,1
%A _Arkadiusz Wesolowski_, Jun 22 2012
%E More terms from _Alois P. Heinz_, Jun 28 2012
|
