cp's OEIS Frontend

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.

A088490 a(n) is the absolute value of p minus A004086(p), where (p-2,p) is the n-th pair of twin primes.

This page as a plain text file.
%I A088490 #6 Oct 01 2013 17:57:44
%S A088490 0,0,18,72,18,9,45,36,198,792,792,0,0,198,792,693,99,99,99,0,594,297,
%T A088490 99,99,198,396,495,297,297,495,693,495,99,99,495,180,2268,450,2538,
%U A088490 2808,2358,90,8442,630,1728,90,7812,2088,2358,8352,7452,360
%N A088490 a(n) is the absolute value of p minus A004086(p), where (p-2,p) is the n-th pair of twin primes.
%C A088490 9 divides each term.
%e A088490 The 4th pair of twin primes is (17,19). a(4) then is the absolute value of 19 - 91, which is 72.
%t A088490 a = {}; For[n = 1, n < 275, n++, If[Prime[n + 1] == Prime[n] + 2, AppendTo[a, Abs[Prime[n + 1] - FromDigits[Reverse[IntegerDigits[Prime[n + 1]]]]]]]]; a
%o A088490 (PARI) revdifftp2(n) = { forprime(x=1,n, if(isprime(x+2), a=vector(x); x1=x+2; z=0; ln=length(Str(x1)); for(y=1,ln, a[y] = x1%10; x1=floor(x1/10); ); for(y=1,ln, z += a[y]*10^(ln-y); ); print1(abs(z-(x+2))" "); ) ) }
%K A088490 base,nonn,less
%O A088490 1,3
%A A088490 _Cino Hilliard_, Nov 09 2003
%E A088490 Edited by _Stefan Steinerberger_, Jul 22 2007