|
|
|
|
#16 by Joerg Arndt at Tue Feb 04 13:08:04 EST 2014
|
|
|
|
#15 by Wesley Ivan Hurt at Tue Feb 04 13:03:58 EST 2014
|
|
|
|
#14 by Michel Marcus at Tue Feb 04 13:03:14 EST 2014
|
|
|
|
#13 by Michel Marcus at Tue Feb 04 13:03:10 EST 2014
|
| NAME
|
n such that the Liouville function lambda(n) take successively, from n, the values 1,-1,1,-1,1,-1
|
| STATUS
|
approved
editing
|
|
|
|
#12 by Charles R Greathouse IV at Mon May 13 01:49:13 EDT 2013
|
| PROG
|
for(n=1, 1e4, if(lambda(n)==1&lambda(n+1)==-1&lambda(n+2)==1&&lambda(n+3)==-1&lambda(n+4)==1&&lambda(n+5)==-1, print1(n", "))) /* ", "))) /* _Charles R Greathouse IV, _, Jun 13 2011 */
|
|
|
Discussion
|
Mon May 13
| 01:49
| OEIS Server: https://oeis.org/edit/global/1914
|
|
|
|
#11 by Harvey P. Dale at Sat May 19 10:30:25 EDT 2012
|
|
|
|
#10 by Harvey P. Dale at Sat May 19 10:30:19 EDT 2012
|
| MATHEMATICA
|
Transpose[Transpose[#][[1]]&/@Select[Partition[Range[Table[{n, LiouvilleLambda[ n]}, {n, 3100], }], 6, 1], LiouvilleLambda[#] == {Transpose[#][[2]]=={1, -1, 1, -1, 1, -1}&]][[1]] Harvey P. Dale, May 19 2012
|
| STATUS
|
approved
editing
|
|
|
|
#9 by Harvey P. Dale at Sat May 19 09:29:01 EDT 2012
|
|
|
|
#8 by Harvey P. Dale at Sat May 19 09:28:56 EDT 2012
|
| LINKS
|
Harvey P. Dale, <a href="/A172357/b172357.txt">Table of n, a(n) for n = 1..1000</a>
|
| STATUS
|
approved
editing
|
|
|
|
#7 by Harvey P. Dale at Sat May 19 09:26:01 EDT 2012
|
|
|
|