%I #10 Jan 22 2022 10:13:04
%S 2,1,0,8,12,53,137,286,185,378,466,1037,1518,1033,2022,637,532,794,
%T 2011,3551,1169,1660,2574,3561,6597,5152,7829,4816,10356,9041,382,
%U 7206,16578,17932,19073,12383,20725,11248,21377,16609,21660,21178,20820,4826,37234
%N a(n) = 10^(prime(n)-1) mod prime(n)^2.
%H Reinhard Zumkeller, <a href="/A265012/b265012.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) < A001248(n);
%F a(A049084(A045616(n))) = 1.
%e a(2) = a(93) = a(3371851) = 1;
%e prime(2) = 3; prime(93) = 487; prime(3371851) = 56598313.
%t PowerMod[10,#-1 ,#^2]&/@Prime[Range[50]] (* _Harvey P. Dale_, Feb 10 2016 *)
%o (Haskell)
%o import Math.NumberTheory.Moduli (powerMod)
%o a265012 n = powerMod 10 (p - 1) (p ^ 2) where p = a000040 n
%o (PARI) a(n) = lift(Mod(10, prime(n)^2)^(prime(n)-1)); \\ _Michel Marcus_, Jan 22 2022
%Y Cf. A045616, A049084, A001248, A000040.
%K nonn
%O 1,1
%A _Reinhard Zumkeller_, Nov 30 2015
|