login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A073886 Terms which retain their position in A073885, i.e., terms for which A073885(n) = n. 1
1, 2, 8, 10, 16, 17, 20, 22, 25, 26, 27, 28, 31, 34, 35, 36, 40, 45, 56, 57, 64, 68, 70, 82, 92, 93, 94, 95, 96, 104, 124, 137, 145, 146, 147, 148, 152, 165, 166, 169, 170, 171, 172, 176, 177, 178, 185, 188, 189, 190, 197, 205, 208, 214, 215, 216, 217, 218, 219 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,2
LINKS
MATHEMATICA
For[n=1; s={}; sum=0, n<=300, n++, For[v=1, MemberQ[s, v]||Xor[PrimeQ[n], PrimeQ[sum+v]], v++, Null]; sum+=v; AppendTo[s, a[n]=v]]; Select[Range[300], a[ # ]==#&]
CROSSREFS
Cf. A073885.
Sequence in context: A161349 A336176 A329952 * A079930 A047467 A079599
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Aug 17 2002
EXTENSIONS
Edited by Dean Hickerson, Oct 22 2002
STATUS
approved

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 29 05:48 EDT 2024. Contains 371265 sequences. (Running on oeis4.)