>>355 Perl
https://ideone.com/93109J

#!/usr/bin/perl

use Math::BigInt;
$b=Math::BigInt->new(10)->bpow(400);
$l=Math::BigInt->new(2501)->bmul($b)->bmul($b)->bsqrt()->badd(Math::BigInt->new(50)->bmul($b));
$a=Math::BigInt->new(1);
for $i ( 0 .. 100 ) {
printf "%3d: %2d\n", $i, $a % 100; $a->bmul($l)->bdiv($b);
}

# チートを使わずに Math::BigInt を使って書くとこんな感じ
# なぜこのような結果になるかは数学板をご参照のこと