[seqfan] Re: cute Superseeker hit

[Robert G. Wilson v]

Add one to your sequence and see what you get! Bob.

-----Original Message-----
From: SeqFan [mailto:seqfan-bounces at list.seqfan.eu] On Behalf Of Wouter Meeussen
Sent: Monday, March 17, 2014 7:44 AM
To: seqfan
Subject: [seqfan] cute Superseeker hit

‘Super’ hit on  Amarnath Murthy’s A061303(n)+1  (see  http://oeis.org/A061303 ) with gcd( n!, Phi(n!) )===gcd( (n+1)!, Phi((n+1)!) )

or in Mma lingo:
Select[Range[120], GCD[#!, EulerPhi[#!] ]===GCD[ (#+1)! ,EulerPhi[(#+1)!] ]&  ] {1,4,12,16,18,30,36,40,42,60,66,70,72,78,88,96,100,108,112}
It is not clear to me whether this is self-evident or not.
Any insight most welcome.

Wouter.

_______________________________________________

Seqfan Mailing list - http://list.seqfan.eu/