|
Search: id:A129212
|
|
|
| A129212 |
|
Numbers n such that n^3 divides 4^(n^2)-1. |
|
+0
1
|
|
| 1, 3, 21, 57, 219, 399, 903, 1533, 2667, 4161, 7077, 17157, 18543, 29127, 32547, 50673, 65919, 74109, 96141, 113799, 114681, 134463, 194691, 227829, 304311, 352317, 383907, 389193, 463071, 516621, 672987, 797349, 863517, 898779, 932799
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
MATHEMATICA
|
k=2; Do[ p=Prime[k]; If[ IntegerQ[ (PowerMod[ p+1, n^2, n^3 ] - 1 )/n^3 ], Print[ {k, p, n} ]], {n, 1, 200000} ]
k=2; Do[ p=Prime[k]; If[ IntegerQ[ (PowerMod[ p+1, n^2, n^3 ] - 1 )/n^3 ], Print[ {k, p, n} ]], {n, 1000000} ] - Robert G. Wilson v (rgwv(AT)rgwv.com), Apr 06 2007
|
|
CROSSREFS
|
Cf. A014945 = numbers n such that n divides 4^n-1. Cf. A127104 = numbers n such that n^2 divides 4^n-1. Cf. A128678 = numbers n such that n^3 divides 4^(n^2)+1.
Sequence in context: A027499 A039595 A033567 this_sequence A117984 A050615 A083564
Adjacent sequences: A129209 A129210 A129211 this_sequence A129213 A129214 A129215
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Alexander Adamchuk (alex(AT)kolmogorov.com), Apr 03 2007
|
|
EXTENSIONS
|
More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Apr 06 2007
|
|
|
Search completed in 0.002 seconds
|
