A196750 Numbers n such that 3, 5, 7 and 11 do not divide swing(n) = A056040(n).
0, 1, 2, 6320
Offset: 1
Links
- Peter Luschny, On the prime factors of the swinging factorial.
Programs
-
Maple
# The function Search is defined in A196747. A196750_list := n -> Search(n,[3,5,7,11]): # n is a search limit
-
PARI
valp(n,p)=my(s); while(n\=p, s+=n); s is(n)=valp(n,3)==2*valp(n\2,3) && valp(n,5)==2*valp(n\2,5) && valp(n,7)==2*valp(n\2,7) && valp(n,11)==2*valp(n\2,11) \\ Charles R Greathouse IV, Feb 02 2016
Comments