%I #21 Feb 02 2025 14:16:42
%S 2,1,3,6,9,1,15,7,22,27,1,25,39,31,17,23,57,31,55,69,43,67,53,33,85,
%T 99,91,105,97,58,115,101,135,49,147,121,127,151,137,143,177,91,189,
%U 181,195,67,79,211,225,217,203,237,151
%N a(n) = -prime(n)^2 (mod prime(n+1)).
%H Harvey P. Dale, <a href="/A113396/b113396.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n) = prime(n+1) - A167770(n). - _Jason Yuen_, Sep 08 2024
%e -2^2 == 2 (mod 3); -3^2 == 1 (mod 5); -5^2 == 3 (mod 7); -7^2 == 6 (mod 11); etc.
%t Mod[#[[2]]^2-#[[1]]^2,#[[2]]]&/@Partition[Prime[Range[60]],2,1] (* _Harvey P. Dale_, Nov 10 2014 *)
%o (PARI) vector(55,n,(-prime(n)^2)%prime(n+1)) \\ _Joerg Arndt_, Sep 09 2024
%Y Cf. A000040, A069482, A167770.
%K nonn,easy
%O 1,1
%A _Marian Kraus_, Oct 26 2005
%E Name simplified by _Joerg Arndt_, Sep 09 2024