Revision History for A132385
(Underlined text is an addition;
strikethrough text is a deletion.)
Showing entries 1-10
| older changes
|
|
|
|
#13 by Bruno Berselli at Thu Jun 28 02:44:35 EDT 2018
|
|
|
|
#12 by Robert Israel at Thu Jun 28 02:32:51 EDT 2018
|
|
|
|
#11 by Robert Israel at Thu Jun 28 02:32:47 EDT 2018
|
| KEYWORD
|
easy,nonn,changed,look
|
| STATUS
|
proposed
editing
|
|
|
|
#10 by Robert Israel at Thu Jun 28 02:31:51 EDT 2018
|
|
|
|
#9 by Robert Israel at Thu Jun 28 02:31:46 EDT 2018
|
| COMMENTS
|
If n is in A088232, a(n) = A000720(n-1) - A056170(n). - Robert Israel, Jun 28 2018
|
| LINKS
|
Robert Israel, <a href="/A132385/b132385.txt">Table of n, a(n) for n = 1..10000</a>
|
| MAPLE
|
f:= proc(n)
if numtheory:-phi(n) mod 3 = 0 then nops(select(isprime, {seq(i^3 mod n, i=0..n-1)}))
else numtheory:-pi(n-1) - nops(select(t -> t[2]>1, ifactors(n)[2]))
fi
end proc:
map(f, [$1..100]); # Robert Israel, Jun 28 2018
|
| CROSSREFS
|
Cf. A000040, A000578, A000720, A056170, A132213.
|
| STATUS
|
approved
editing
|
|
|
|
#8 by Jon E. Schoenfield at Wed Sep 16 13:56:03 EDT 2015
|
|
|
|
#7 by Jon E. Schoenfield at Wed Sep 16 13:56:01 EDT 2015
|
| MATHEMATICA
|
Table[Length[Select[Union[Table[Mod[i^3, n], {i, 0, n}], Table[Mod[i^3, n], {i, 0, n}]], PrimeQ[ # ] &]], {n, 1, 70}] - _}] (* _Stefan Steinerberger_, Nov 12 2007 *)
|
| STATUS
|
approved
editing
|
|
|
|
#6 by Russ Cox at Fri Mar 30 18:49:46 EDT 2012
|
| COMMENTS
|
It seems that the size of a(n) as compared to its surrounding elements is dependent on whether or not n is in A088232. If n is in A088232 the sequence assumes "big" values, otherwise the values will be "small". - ". - _Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), _, Nov 24 2007
|
| MATHEMATICA
|
Table[Length[Select[Union[Table[Mod[i^3, n], {i, 0, n}], Table[Mod[i^3, n], {i, 0, n}]], PrimeQ[ # ] &]], {n, 1, 70}] - }] - _Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), _, Nov 12 2007
|
| EXTENSIONS
|
More terms from _Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), _, Nov 12 2007
|
|
|
Discussion
|
Fri Mar 30
| 18:49
| OEIS Server: https://oeis.org/edit/global/238
|
|
|
|
#5 by Russ Cox at Fri Mar 30 18:40:43 EDT 2012
|
| AUTHOR
|
_Jonathan Vos Post (jvospost3(AT)gmail.com), _, Nov 07 2007
|
|
|
Discussion
|
Fri Mar 30
| 18:40
| OEIS Server: https://oeis.org/edit/global/228
|
|
|
|
#4 by Russ Cox at Fri Mar 30 17:28:20 EDT 2012
|
| EXTENSIONS
|
Spelling/notation corrections by _Charles R Greathouse IV (charles.greathouse(AT)case.edu), _, Mar 18 2010
|
|
|
Discussion
|
Fri Mar 30
| 17:28
| OEIS Server: https://oeis.org/edit/global/147
|
|
|
|
|