A176101 a(n) = 4^(composite(n) - 4) mod composite(n+4).

1, 4, 4, 4, 0, 16, 16, 16, 16, 16, 21, 10, 1, 16, 4, 0, 31, 18, 16, 4, 16, 1, 24, 16, 36, 34, 18, 16, 46, 4, 16, 16, 28, 26, 16, 7, 54, 4, 16, 16, 0, 16, 64, 64, 58, 4, 16, 70, 49, 64, 9, 22, 64, 55, 64, 16, 1, 44, 25, 56, 64, 74, 48, 70, 74, 49, 64, 44, 1, 4, 52, 48, 79, 36, 88, 56, 58, 64, 112, 31

Offset

1,2

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Formula

a(n) = 4^(A002808(n) - 4) mod A002808(n+4).

Example

a(2)=6 because 4^(composite(2) - 4) mod composite(2+4) = 16 mod 12 = 4.

Maple

A176101 := proc(n) modp(4^(A002808(n)-4) , A002808(n+4)) ; end proc:
seq(A176101(n), n=1..80) ; # R. J. Mathar, Dec 08 2010

Mathematica

With[{cmps=Partition[Select[Range[200], CompositeQ], 5, 1]}, PowerMod[4, #[[1]]-4, #[[5]]]&/@cmps] (* Harvey P. Dale, Dec 06 2020 *)

Crossrefs

Cf. A000302, A002808.

Sequence in context: A073816 A368820 A084452 * A052283 A133889 A243756

Adjacent sequences: A176098 A176099 A176100 * A176102 A176103 A176104

Keyword

nonn,less

Author

Juri-Stepan Gerasimov, Dec 07 2010

Status

approved