This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A179399 #14 Aug 04 2019 12:02:50 %S A179399 1,1,4,4,1,9,9,1,2,22,8,34,37,23,24,6,19,19,55,40,65,10,68,57,47,43, %T A179399 61,41,21,111,103,7,126,20,26,31,13,161,75,54,145,143,18,128,112,104, %U A179399 62,33,196,26,110,98,61,149,143,61,196,213,69,57,51,283,269,54,217,73,153,147,53,227,323,217,117,203 %N A179399 Prime(n)^2 mod prime(n-4). %H A179399 Harvey P. Dale, <a href="/A179399/b179399.txt">Table of n, a(n) for n = 5..1000</a> %e A179399 a(1)=11^2 mod(2)=121 mod(2)=1, a(2)=13^2 mod(3)=169 mod(3)=1, a(3)=17^2 mod(5)=289 mod(5)=4, a(4)=19^2 mod(7)=361 mod(7)=4,... %p A179399 A179399 := proc(n) ithprime(n)^2 mod ithprime(n-4); end proc: # _R. J. Mathar_, Jan 09 2011 %t A179399 Table[PowerMod[Prime[n],2,Prime[n-4]],{n,5,80}] (* _Harvey P. Dale_, Aug 04 2019 *) %Y A179399 Cf. A038702. %K A179399 nonn %O A179399 5,3 %A A179399 _Umut Uludag_, Jan 07 2011