A073800 - OEIS

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

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

Other ways to Give

A073800

Remainder of division 2^n/c(n), where c(n)=A002808(n), the n-th composite.

2, 4, 0, 7, 2, 4, 2, 1, 0, 16, 8, 1, 8, 16, 18, 16, 14, 8, 8, 0, 2, 30, 18, 28, 14, 4, 8, 16, 28, 19, 6, 16, 29, 34, 8, 40, 2, 14, 8, 16, 14, 4, 8, 4, 0, 49, 62, 52, 32, 4, 8, 46, 17, 20, 65, 22, 32, 16, 62, 64, 32, 64, 41, 16, 32, 64, 48, 70, 48, 24, 32, 22, 74, 84, 8, 16, 32, 52

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

LINKS

Sean A. Irvine, Table of n, a(n) for n = 1..10000

MATHEMATICA

Table[Mod[2^j, FixedPoint[j+PrimePi[ # ]+1&, j]], {j, 1, 128}]

Module[{c=Select[Range[200], CompositeQ], len}, len=Length[c]; Table[ PowerMod[ 2, n, c[[n]]], {n, len}]] (* Harvey P. Dale, Mar 03 2018 *)

CROSSREFS

Cf. A000079, A002808, A015910, A062173, A064367, A073797, A073798, A073799.

Sequence in context: A229534 A021810 A355007 * A076813 A049289 A258053

Adjacent sequences: A073797 A073798 A073799 * A073801 A073802 A073803

KEYWORD

nonn

AUTHOR

Labos Elemer, Aug 12 2002

STATUS

approved

Note: This service is not intended for secure transactions such as banking, social media, email, or purchasing. Use at your own risk. We assume no liability whatsoever for broken pages.

Pfad - The Proxy pFad of © 2024 Garber Painting. All rights reserved.