72になった

lambda = 50 + ( sqrt 2501 )

a 0 = 1
a n = floor $ ( * lambda ) $ fromInteger $ a $ n-1

main = do
print $ map ( flip mod 100 ) $ map a [ 0.. 100 ]

----

[1,0,0,99,99,98,98,97,98,56,96,76,48,36,16,80,48,80,40,4,96,80,4,64,40,96,20,72,60,56,56,52,44,60,68,72,28,92,36,36,92,40,92,92,16,56,16,16,80,8,12,48,28,48,28,60,48,16,60,68,28,8,76,48,44,32,72,96,16,16,44,28,56,92,60,84,36,68,12,40,40,8,32,0,64,28,24,88,24,92,56,4,76,84,76,16,56,80,12,8,72]