login
This site is supported by donations to The OEIS Foundation.

 

Logo

Invitation: celebrating 50 years of OEIS, 250000 sequences, and Sloane's 75th, there will be a conference at DIMACS, Rutgers, Oct 9-10 2014.

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A083241 a(n)+a(n-1)+a(n-2)+a(n-3)=prime(n), n>2, a(0)=a(1)=a(2)=0;. 1
0, 0, 0, 5, 2, 4, 2, 9, 4, 8, 8, 11, 10, 12, 10, 15, 16, 18, 12, 21, 20, 20, 18, 25, 26, 28, 22, 27, 30, 30, 26, 41, 34, 36, 28, 51, 36, 42, 34, 55, 42, 48, 36, 65, 44, 52, 38, 77, 56, 56, 40, 81, 62, 58, 50, 87, 68, 64, 52, 93, 72, 66 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,4

LINKS

Table of n, a(n) for n=0..61.

FORMULA

A001221(a(n)-A000720(a(n)))=1 .

a(n)-A000720(a(n)) is in A025475.

EXAMPLE

a(3)+a(4)+a(5)+a(6)=5+2+4+2=prime(6)=13

MAPLE

A083241 := proc(n)

        option remember;

        if n <= 2 then

                0;

        else

                ithprime(n) - add(procname(n-i), i=1..3) ;

        end if;

end proc: # R. J. Mathar, Jul 08 2012

MATHEMATICA

Do[s=Prime[n]-n; If[Equal[Length[FactorInteger[s]], 1]&&!PrimeQ[s], Print[Prime[n]]], {n, 1, 100000}]

CROSSREFS

Sequence in context: A181697 A181696 A157121 * A111145 A021660 A064853

Adjacent sequences:  A083238 A083239 A083240 * A083242 A083243 A083244

KEYWORD

nonn

AUTHOR

Labos Elemer, Apr 24 2003

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement .

Last modified July 24 21:14 EDT 2014. Contains 244897 sequences.