[go: up one dir, main page]

login
A056032
Trimorphic but not bimorphic nor automorphic.
0
4, 9, 24, 49, 51, 75, 99, 125, 249, 251, 375, 499, 501, 624, 749, 751, 875, 999, 1249, 3751, 4375, 4999, 5001, 5625, 6249, 8751, 9375, 9999, 18751, 31249, 40625, 49999, 50001, 59375, 68751, 81249, 90624, 99999, 109375, 218751, 281249, 390625, 499999
OFFSET
1,1
MATHEMATICA
Do[x=Floor[N[Log[10, n], 25]]+1; If[Mod[n^3, 10^x] == n, If[Mod[n^2, 10^x]!= n, Print[n]]], {n, 5*10^5}]
CROSSREFS
Cf. A003226 and A033819.
Sequence in context: A255876 A158141 A056575 * A304908 A127979 A112262
KEYWORD
easy,nonn
AUTHOR
Robert G. Wilson v, Jul 24 2000
EXTENSIONS
Missing a(41) inserted by Sean A. Irvine, Apr 12 2022
STATUS
approved