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.

A129188 n + n-th prime + n-th composite.

This page as a plain text file.
%I A129188 #11 Mar 14 2014 01:24:46
%S A129188 7,11,16,20,26,31,38,42,48,57,62,70,76,81,87,95,103,107,116,123,127,
%T A129188 135,141,149,160,166,170,177,182,188,204,211,219,223,235,239,248,256,
%U A129188 262,270,278,283,296,300,306,310,324,339,345,349,356,365,369,381,389,397
%N A129188 n + n-th prime + n-th composite.
%F A129188 a(n) = n+A064799(n). - _R. J. Mathar_, Nov 25 2008
%e A129188 a(1)=1+2+4, a(2)=2+3+6, a(3)=3+5+8, a(4)=4+7+9.
%p A129188 c:=proc(n) if isprime(n)=false then n else fi end: C:=[seq(c(n),n=2..100)]: a:=n->ithprime(n)+C[n]+n: seq(a(n),n=1..70); # _Emeric Deutsch_, Apr 16 2007
%t A129188 prs=Prime[Range[200]]; comps=Rest[Complement[Range[prs[[-1]]], prs]]; Table[n + prs[[n]] + comps[[n]], {n, Length[prs]}] (* _Harvey P. Dale_, Jan 11 2011 *)
%K A129188 nonn
%O A129188 1,1
%A A129188 _Edwin F. Sampang_, Apr 01 2007