|
|
|
|
1, 1, 5, 1, 29, 57, 37, 33, 109, 841, 373, 3761, 8125, 9817, 8517, 41025, 73741, 67177, 118293, 967377, 822621, 3100537, 6492133, 16397921, 33478573, 13406601, 83211957, 177703665, 35540733, 114482329, 881889925, 176377985, 35275597, 15468937385, 3093787477
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
COMMENTS
|
Conjecture: For any odd m and for any k, the density of n such that a(n) == k (mod m) is 1/m.
|
|
LINKS
|
|
|
PROG
|
(GAP) A214882 := function(max) local result, i; result := [5]; for i in [2..max] do Add(result, result[i-1]^2 mod 10^i); od; result := List([1..max], n->result[n]/5^n); return result; end;
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|